Упорядочить файл записей методом отыскания наименьшего. Добавить несколько новых элементов

type
 person=record
  name:string;
  height:integer;
 end;
procedure CreateFile(nf:string);
 var
  i,n:integer;
  f:file of person;
  x:person;
 begin
  write('Write number of humans : ');
  readln(n);
  writeln('Write surname and height of each human: ');
  assignfile(f,nf);
  rewrite(f);
  for i:=1 to n do
   begin
    writeln('-',i,'-y: ');
    write('   surname: ');
    readln(x.name);
    write('   height: ');
    readln(x.height);
    seek(f,i-1);
    write(f,x);
   end;
  writeln;
  closefile(f);
 end;
procedure ViewFile (nf:string);
 var
  i:integer;
  f:file of person;
  x,z:person;
 begin
  assignfile(f,nf);
  reset(f);
  writeln('Ascending list of humans : ');
  for i:=1 to filesize(f) do
   begin
    writeln('-',i,'-y: ');
    read(f,x);
    writeln('   surname: ',x.name);
    writeln('   height: ',x.height);
   end;
  writeln;
  closefile(f);
 end;
procedure SortMin (nf:string);
 var
  i,j,imin:integer;
  f:file of person;
  x,amin:person;
 begin
  assignfile(f,nf);
  reset(f);
  for i:=filesize(f) downto 2 do
  begin
  seek(f,i-1);
  read(f,amin);
  imin:=i;
  for j:=i-1 downto 1 do
  begin
  seek(f,j-1);
  read(f,x);
  if x.height<amin.height then
  begin
  amin.height:=x.height;
  amin.name:=x.name;
  imin:=j;
  end;
  end;
  if imin<>i then
  begin
  seek(f,i-1);
  read(f,x);
  seek(f,imin-1);
  write(f,x);
  seek(f,i-1);
  write(f,amin);
  end;
  end;
  closefile(f);
 end;
procedure InsToFile (nf:string; t:integer);
 var
  i,j:integer;
  f:file of person;
  x,y:person;
 begin
  writeln('Write surname and height of humans: ');
  for j:=1 to t do
   begin
    assignfile(f,nf);
    reset(f);
    write('   familiya: ');
    readln(x.name);
    write('   rost: ');
    readln(x.height);
    seek(f,filesize(f));
    write(f,x);
    for i:=filesize(f) downto 2 do
     begin
      seek(f,i-2);
      read(f,x);
      seek(f,i-1);
      read(f,y);
      if x.height<y.height then
       begin
        seek(f,i-1);
        write(f,x);
        seek(f,i-2);
        write(f,y);
       end;
     end;
   end;
  closefile(f);
 end;
var
 nf:string;
 t:integer;
begin
 write('Write the name of the file : ');
 readln(nf);
 CreateFile(nf);
 Sortmin(nf);
 ViewFile(nf);
 write('Write number of new humans : ');
 readln(t);
 InsToFile(nf,t);
 ViewFile(nf);
 readln;
end.