Red

 procedure redak;
var
  bd: base;
  k, c: integer;  s: string;
begin
reset(f);
  writeln('Выбрана функция Редактирования записей');writeln;

  write('Введите номер записи: ');
  readln(k);

writeln;writeln('Выберете поле для редактирования');writeln;

  Writeln('1 - Код:  ');
  Writeln('2 - Название региона:  ');
  writeln('3 - Дата переписи:  ');
  writeln('4 - Число жителей:  ');
  writeln('5 - Жилая площадь(кв.м):  ');
  readln(c);

  writeln('Введите новые данные: ');
  readln(s);

  read(f, bd);

  seek(f, k - 1);  {Находит позицию k; у первой записи порядк.ном.=0,поэтому и -1}

  begin
    case c of
      1: begin bd.cod       := s; write(f, bd);  end;
      2: begin bd.region    := s; write(f, bd);  end;
      3: begin bd.data      := s; write(f, bd);  end;
      4: begin bd.numbpeopl := s; write(f, bd);  end;
      5: begin bd.area      := s; write(f, bd);  end;
    end;

    end;

clrscr;
gotoxy(1, 1);
    vivod;
    writeln;
    Textcolor(yellow);
    writeln(k, '-ая запись была изменена');
    Textcolor(white);
    writeln;
    close(f);

end;