програм-ие и работа с записями

Uses crt;
Const max = 100;
Type
  Stud = record
    FIO: string[20];
    pol: char;
    group: byte;
    beg,dl,vis: real;
    end;
 
  DataArray = array[1..max] of Stud;
 
Var
  a: DataArray;
  n: byte;
  key: char;
 
Procedure Add(var a: DataArray; var n: byte); //добавление данных
  begin
    Writeln('Esc - конец ввода данных записи');
    Repeat
      Inc(n);
      With a[n] do
        begin
          Write('ФИО: ');
          Readln(FIO);
          Write('М или Ж?');
          Readln(pol);
          pol:=upcase(pol);
          Write('Номер группы: ');
          Readln(group);
          Write('Бег: ');
          Readln(beg);
          Write('Длина: ');
          Readln(dl);
          Write('Высота: ');
          Readln(vis);
        end;
      key:=readkey
    Until key=#27;
  end;
 
Procedure Sort(Var a: DataArray; n: byte); //сортировка
  var
    i,j: byte;
    buf: Stud;
  begin
    For i:=1 to n-1 do
    For j:=n downto i do
      If a[i].FIO>a[j].FIO then
        begin
          buf:=a[i];
          a[i]:=a[j];
          a[j]:=buf;
        end;
  end;
 
Procedure Print(a: DataArray; n: byte); //вывод
  var i: byte;
  begin
    For i:=1 to n do
    With a[i] do
      begin
        Writeln(i,'. ФИО: ',FIO);
        Writeln(' - номер группы: ',group);
        Writeln(' - бег: ',beg);
        Writeln(' - прыжки в длину: ',dl);
        Writeln(' - прыжки в высоту: ',vis);
        Writeln;
      end;
  end;
 
Procedure Del(i: byte; var a: DataArray; var n: byte);  //удаление записи
  var j: byte;
  begin
    For j:=i to n-1 do a[j]:=a[j+1];
    Dec(n);
  end;
 
Procedure Search(var a: DataArray; var n: byte); //поиск сдавших нормативы
  var i: byte;
  begin
    i:=1;
    While i<=n do
    With a[i] do
      If pol='М' then
        If (beg<=12) and (dl>=3) and (vis>=1.25) then lol(i,a,n) else inc(i)
     Else if (beg<=13) and (dl>=2.5) and (vis>=1.1) then lol(i,a,n) else inc(i);
  end;
 
Begin
  Clrscr;
  Repeat
    Writeln('1 - очистить экран');
    Writeln('2 - добавить данные');
    Writeln('3 - напечатать данные');
    Writeln('4 - отсортировать данные по фамилии');
    Writeln('5 - удалить данные сдавших нормативы студентов');
    key:=readkey;
    Case key of
      '1': clrscr;
      '2': Add(a,n);
      '3': Print(a,n);
      '4': Sort(a,n);
      '5': Search(a,n);
      end;
    Write('Выход? Д/Н ');
    key:=readkey
  Until upcase(key)='Д'
End.