Создать программу, которая сохраняет информацию в типизированом файле для определённого элемента

program xxx;
uses crt;
type
 TTip=record
  n:Integer;
  nm:string[20];
  fam:string[40];
  ser:integer;
  np:integer;
  Date:String[8];
 end;
var
 w,hmp:integer;
 hm:array[1..1000]of TTip;
 f:file of TTip;
 t:TTip;
begin
 clrscr;
 assign(f,'file.tip');
 reset(f);
 while not EOF(f) do begin
  hmp:=hmp+1;
  read(f,hm[hmp]);
 end;
 writeln('Введите 1, если вы хотите пополнить данные,');
 writeln('Введите 2, если хотите вывести всю информацию,');
 writeln('Введите 3, если хотите исправить информацию,');
 writeln('Введите 4, если хотите сортировать данные');
 readln(w);
 case w of
  1:begin
       t.n:=hmp+1;
       writeln('Напишите имя');
       readln(t.nm);
       writeln('Напишите фамилию');
       readln(t.fam);
       writeln('Введите серию и номер пасспорта');
       readln(t.ser,t.np);
       writeln('Введите дату');
       readln(t.date);
       rewrie(f);
       for i:=1 to hmp do write(f,hm[i]);
       write(f,t);
       close(f);
     end;
 end;
end.

case w of
  1:begin
       t.n:=hmp+1;
       writeln('Напишите имя');
       readln(t.nm);
       writeln('Напишите фамилию');
       readln(t.fam);
       writeln('Введите серию и номер пасспорта');
       readln(t.ser,t.np);
       writeln('Введите дату');
       readln(t.date);
       rewrie(f);
       for i:=1 to hmp do write(f,hm[i]);
       write(f,t);
       close(f);
     end;
     2:begin
      reset(f);
      while not EOF(f) do begin
       clrscr;
       read(f,t);
       writeln('Номер: ',t.n);
       writeln('Имя: ',t.nm);
       writeln('Серия пасспорта: ',t.ser,', номер: ',t.nm);
       writeln('Дата: ',t.date);
       readln;
      end;
      close(f);
     end;

var
 i:integer;
 m:string; //просто добавьте
...
case w of
  1:begin
       t.n:=hmp+1;
       writeln('Напишите имя');
       readln(t.nm);
       writeln('Напишите фамилию');
       readln(t.fam);
       writeln('Введите серию и номер пасспорта');
       readln(t.ser,t.np);
       writeln('Введите дату');
       readln(t.date);
       rewrie(f);
       for i:=1 to hmp do write(f,hm[i]);
       write(f,t);
       close(f);
     end;
     2:begin
      reset(f);
      while not EOF(f) do begin
       clrscr;
       read(f,t);
       writeln('Номер: ',t.n);
       writeln('Имя: ',t.nm);
       writeln('Серия пасспорта: ',t.ser,', номер: ',t.nm);
       writeln('Дата: ',t.date);
       readln;
      end;
      close(f);
     end;
     4:begin
      for 2:=1 to hmp do
      while (hm[i-1].fam>hm[i].fam) and (i>1) do begin
       m:=hm[i].fam;
       hm[i].fam:=hm[i-1].fam;
       hm[i-1].fam:=m;
       i:=i-1; //В этом месте может быть ошибка, но у меня её нет.
      end;
      rewrite(f);
      for i:=1 to hm do write(f,hm[i]);
      close(f);
     end;
  end;

     4:begin
      for i:=1 to hmp do
      while (hm[i-1].fam>hm[i].fam) and (i>1) do begin
       m:=hm[i].fam;
       hm[i].fam:=hm[i-1].fam;
       hm[i-1].fam:=m;
       i:=i-1; //В этом месте ошибка
      end;
      rewrite(f);
      for i:=1 to hm do write(f,hm[i]);
      close(f);
     end;
  end;