зависает программа

procedure asd(var f1, f2: TFStudent);
var
  st, x, y, sp : TStudent;
  k, g, i, j, fg: integer;
begin
  g:=0;
  fg:=2;
  reset(f1);
  rewrite(f2);
  for k:=1 to 11 do begin
  g:=g+1;
  while not eof(f1) do begin
  if st.clas = g  then begin
  seek(f2,filesize(f2));
  write(f2, st);
  end;
  end;
  for i:=0 to filesize(f2)-2 do   
    for j:=i+1 to filesize(f2)-1 do   
  begin
    seek(f2,i);  
    read(f2,x);  
    seek(f2,j);   
    read(f2,y);  
    if (x.growth<y.growth)and(st.clas = g) then    
      begin
       sp:=x;  
       x:=y;
       y:=sp;
       seek(f2,i);  
       write(f2,x);
       seek(f2,j);
       write(f2,sp);
      end;
   end;
    seek(f2, fg);
    truncate(f2);
    fg:=fg+3;
  end;
close(f1);
close(f2);
end;

 for k:=1 to 11 do begin

 while not eof(f1) do begin

 for i:=0 to filesize(f2)-2 do   
    for j:=i+1 to filesize(f2)-1 do   
  begin

type
  TStudent = record 
    name: string[30];
    growth: word;
    clas: word;
    bukva: string[3];
    sr: real;
  end;
  TFStudent = file of TStudent;
 
procedure InputRec(var st: TStudent);
begin
  with st do
  begin
    Write('Введите ФИО:  ');
    readln(name);
    write('Введите рост ученика:  ');
    readln(growth);
    write('Введите класс:  ');
    readln(clas);
    write('Введите букву:  ');
    readln(bukva);
  end; 
end;
 
procedure AddRec(var f: TFStudent; st: TStudent);
begin
  reset(f);
  seek(f, Filesize(f));
  write(f, st);
  close(f);
end;
 
procedure CreateFile(var f: TFStudent);
var
  st: TStudent; c: char;
begin
  rewrite(f);
  repeat
    writeln('Введите информацию об ученике');
    InputRec(st);
    AddRec(f, st);
    writeln('Выйти?');
    readln(c);
  until c in ['y', 'Y'];
end;
 
procedure DelRec(var f: TFStudent; var n: byte);
var
  st: TStudent;
begin
  reset(f);
  if n <> Filesize(f) - 1 then begin
    seek(f, Filesize(f) - 1);
    read(f, st);
    seek(f, n);
    write(f, st);
  end;
  seek(f, Filesize(f) - 1);
  Truncate(f);
  close(f);
end;
 
procedure sred(var f: TFStudent; var sredn: real);
var
  st: TStudent;
  sum: real;
  k: byte;
begin
  reset(f);
  sum := 0;
  k := 0;
  while not (eof(f)) do
  begin
    read(f, st);
    k := k + 1;
    sum := sum + st.growth;
  end;
  if k = 0 then k := 1;
  sredn := sum / k;
  close(f);
end;
 
procedure FiletoFileRec(var f1, f2: TFStudent);
var
  st, x, y, sp : TStudent;
  k, g, i, j, fg, p: integer;
begin
  g:=0;
  fg:=2;
  reset(f1);
  rewrite(f2);
  for k:=1 to 11 do begin
  g:=g+1;
  for p:=1 to filesize(f2) do 
  if st.clas = g  then begin
  seek(f2,filesize(f2));
  write(f2, st);
  end;
  for i:=0 to filesize(f2)-2 do   
    for j:=i+1 to filesize(f2)-1 do   
  begin
    seek(f2,i);  
    read(f2,x);  
    seek(f2,j);   
    read(f2,y);  
    if (x.growth<y.growth)and(st.clas = g) then    
      begin
       sp:=x;  
       x:=y;
       y:=sp;
       seek(f2,i);  
       write(f2,x);
       seek(f2,j);
       write(f2,sp);
      end;
   end;
    seek(f2, fg);
    truncate(f2);
    fg:=fg+3;
  end;
close(f1);
close(f2);
end;
 
procedure FiletoFileTxt(var f1: TFStudent; var f3: text);
var
  st: TStudent;
  sr: real;
begin
  reset(f1);
  rewrite(f3);
  sred(f1, sr);
  writeln(sr);
  reset(f1);
  Rewrite(f3);
  while not eof(f1) do
  begin
    read(f1, st);
    if (st.growth > sr) then writeln(f3, 'Имя:   ', st.name);
    if (st.growth > sr) then writeln(f3, 'Рост:  ', st.growth);
    if (st.growth > sr) then writeln(f3, 'Класс: ', st.clas, ' "', st.bukva, '"');
    if (st.growth > sr) then writeln(f3);
  end;
  close(f1);
  close(f3);
end;
 
procedure ViewFileRec(var f: TFStudent);
var
  st: TStudent;
begin
  reset(f);
  while not eof(f) do 
  begin
    read(f, st);
    writeln('Имя:   ', st.name);
    writeln('Рост:  ', st.growth);
    writeln('Класс: ', st.clas, ' "', st.bukva, '"');
    writeln;
  end;
  close(f);
end;
 
procedure ViewFileTxt(var f: text);
var
  s: string;
begin
  reset(f);
  while not eof(f) do 
  begin
    readln(f, s);
    writeln(s);
  end;
  close(f);
end;
 
var
  f1, f2: TFStudent;
  f3: text;
  fname1, fname2, fname3: string;
  n, m1, m2: byte;
  st: TStudent;
 
begin
  repeat
    writeln('Выберете действие:');
    writeln('1. Создание исходного файла');
    writeln('2. Работа с файлом записи');
    writeln('3. Просмотр файла записи');
    writeln('4. Просмотр текстового файла');
    writeln('5. Сведения о 3 самых высоких');
    writeln('6. Сведения об учениках чей рост больше среднего по школе');
    writeln('7. Удалить файл');
    writeln('0. Выход');
    writeln('Ваш выбор:');
    readln(m1);
    case m1 of
      1: 
        begin
          write('Введите имя файла: ');
          readln(fname1);
          assign(f1, fname1);
          CreateFile(f1);
        end;
      2: 
        begin
          repeat
            write('Имя: ');
            readln(fname1);
            assign(f1, fname1);
            ViewFileRec(f1);
            writeln('Выберете действие');
            writeln('1. Добавить ЗП');
            writeln('2. Удалить ЗП');
            writeln('0. Выход');
            writeln('Ваш выбор: ');
            readln(m2);
            case m2 of
              1: 
                begin
                  InputRec(st);
                  AddRec(f1, st);
                end;
              2: 
                begin
                  writeln('Введите № ЗП y/ удалится');
                  readln(n);
                  n := n - 1;
                  DelRec(f1, n);
                end;
              3: 
                begin
                  write('Введите № ЗП у/ редакт');
                  readln(n);
                  DelRec(f1, n);
                  InputRec(st);
                  AddRec(f1, st);
                end;
            end;
          until m2 = 0
        end;
      3: 
        begin
          writeln('Введите имя файла');
          readln(fname1);
          assign(f1, fname1);
          writeln;
          ViewFileRec(f1);
        end;
      4: 
        begin
          write('Введите имя файла: ');
          readln(fname3);
          assign(f3, fname3);
          ViewFileTxt(f3);
        end;
      5: 
        begin
          writeln('Введите имя исходного файла');
          readln(fname1);
          if Fileexists(fname1) then begin
            assign(f1, fname1);
            write('Введите имя результирующего файла: ');
            readln(fname2);
            assign(f2, fname2);
            FiletoFileRec(f1, f2);
          end
          else writeln('Такого файла не существует');
        end;
      6: 
        begin
          writeln('Введите имя исходного файла');
          readln(fname1);
          if Fileexists(fname1) then begin
            assign(f1, fname1);
            write('Введите имя результирующего файла: ');
            readln(fname3);
            assign(f3, fname3);
            FiletoFileTxt(f1, f3);
          end
          else writeln('Такого файла не существует');
        end;
      7:
        begin
          writeln('Введите имя файла');
          readln(fname1);
          assign(f1, fname1);
          Erase(f1);
        end;
    end;
  until m1 = 0;
end.

 begin
    seek(f2,i);  
    read(f2,x);  
    seek(f2,j);   
    read(f2,y);  
    if (x.growth<y.growth)and(st.clas = g) then