В таблице хранятся следующие данные об учениках: фамилия, имя, отчество, рост, вес. Вычислить средний рост учеников, найти самого

Type Uchenik=Record
     Fam,Name,Surname:string[20];
     Rost,massa:integer;
     End;
Var
   sr:real;
   n,k,i,max,min:integer;
   s1,s2:string[20];
   A:array[1..100] of Uchenik;
Begin
   sr:=0;max:=0;min:=500;k:=0;
   write('Введите кол-во учеников: ');readln(n);
   For i:=1 to n do
     With a[i] do
      Begin
       writeln('Введите информацию о ',i,'-ом ученике');
       write('Фамилия: ');readln(Fam);
       write('Имя: ');readln(Name);
       write('Отчество: ');readln(Surname);
       write('Рост: ');readln(Rost);
       write('Масса: ');readln(Massa);
       if Rost>max then
        Begin
         max:=Rost;
         s1:=Fam;
        End;
       if Rost<min then
        Begin
         min:=Rost;
         s2:=Fam;
        End;
       sr:=sr+Rost;
       if Rost>170 then inc(k);
      End;
     writeln('Средний рост учеников: ',sr/n:0:2);
     writeln('Самый высокий ученик: ',s1,' его рост ',max);
     writeln('Самый низний ученик: ',s2,' его рост ',min);
     writeln('Кол-во учеников которые могут заниматься в баскетбольной команде: ',k);
End.