Программирование Казика (pascal included)

учи php, и начни зарабатывать ПРЯМО СЕЙЧАС

я не понял твою шутку...

нубасы го кодить на языке Ада

хочу новый урок по процедурам и функциям

почему редачит всегда 1 элемент? я ж ввожу вроде и

procedure re; {редактирование ДАННЫХ начало}
  begin
  assign(Fdog, 'dog.dat');
  reset(Fdog);
  writeln('Введите редактируемый элемент');
  readln(i);
  write('Введите фамилию работника: ');   readln(dog[n+1].dog_sot.fam);
  write('Введите имя работника: ');	   readln(dog[n+1].dog_sot.im);
  write('Введите отчество работника: ');  readln(dog[n+1].dog_sot.ot);
  write('Введите адрес: ');			   readln(dog[n+1].dog_sot.ad);
  write('Введите дату рождения: ');	   readln(dog[n+1].dog_sot.dt_r);
  write('Введите должность: ');		   readln(dog[n+1].dog_sot.dol);
  write('Введите наименование услуги: '); readln(dog[n+1].dog_us.us_name);
  write('Введите цену за услугу: ');	  readln(dog[n+1].dog_us.us_price);
  write('Введите фамилию: ');			 readln(dog[n+1].dog_kl.kl_fam);
  write('Введите имя: ');				 readln(dog[n+1].dog_kl.kl_im);
  write('Введите отчество: ');		    readln(dog[n+1].dog_kl.kl_ot);
  write('Введите адрес: ');			   readln(dog[n+1].dog_kl.kl_ad);
  write('Введите дату рождения: ');	   readln(dog[n+1].dog_kl.kl_dt);
  write('Введите №');										  readln(dog[n+1].dog_n);
  write('Введите фамилию сотрудника, заключивщего договор: '); readln(dog[n+1].dog_sot.fam);
  write('Введите данные о предоставляемой услуге: ');		  readln(dog[n+1].dog_us.us_name);
  write('Введите данные о клиенте: ');						 readln(dog[n+1].dog_kl.kl_fam);
  write(Fdog, dog[n+1]);
  end;	  {редактирование ДАННЫХ КОНЕЦ}

потому что ты читаешь номер в i, а записываешь в n+1

изменял на i все равно не работает, он редактит почему то всегда 1 элемент

значит не везде изменил