Структуры: по данным сведениям об учениках класса определить среднюю массу мальчиков и средний рост девочек

TYPE student=record
  fam,pol:string;
  rost:100..220;
  mas:30..200;
  end;
var
    s:array[1..100] of student;
    i,n:integer;  sr,sv,kd,km:real;
begin
 write('Количество учеников= ');
 readln(n);
 writeln('Введите данные об учениках');
 for i:=1 to n do
 begin
 writeln(i,' ученик');
 with s[i] do
  begin
   write('Фамилия: '); readln(fam);
   write('Пол (М/Ж): '); readln(pol);
   write('Рост: '); readln(rost);
   write('Вес: '); readln(mas);
  end;
 end;
 
sv:=0;
sr:=0;
kd:=0;
km:=0;
 
for i:=1 to n do
begin
with s[i] do
begin
if pol='М' then
begin
km:=km+1;
sv:=sv+mas;
end;
if pol='Ж' then
begin
kd:=kd+1;
sr:=sr+rost;
end;
end;
end;
 
sv:=sv/km;
sr:=sr/kd;
writeln('Средняя масса мальчиков= ',sv);
writeln('Средний рост девочек= ',sr);
 
END.

TYPE student=record
  fam,pol:string;
  rost:100..220;
  mas:30..200;
  end;
var
    s:array[1..100] of student;
    i,n,u:integer;  sr,sv,kd,km,max:real;
begin
 write('Количество учеников= ');
 readln(n);
 writeln('Введите данные об учениках');
 for i:=1 to n do
 begin
 writeln(i,' ученик');
 with s[i] do
  begin
   write('Фамилия: '); readln(fam);
   write('Пол (М/Ж): '); readln(pol);
   write('Рост: '); readln(rost);
   write('Вес: '); readln(mas);
  end;
 end;
 
sv:=0;
sr:=0;
kd:=0;
km:=0;
 
for i:=1 to n do
begin
with s[i] do
begin
if pol='М' then
begin
km:=km+1;
sv:=sv+mas;
end;
if pol='Ж' then
begin
kd:=kd+1;
sr:=sr+rost;
end;
end;
end;
 
sv:=sv/km;
sr:=sr/kd;
writeln('Средняя масса мальчиков= ',sv);
writeln('Средний рост девочек= ',sr);
 
max:=100;
for i:=1 to n do
begin
with s[i] do
if rost>max then
begin
max:=rost;
u:=i;
end;
end;
with s[u] do
writeln('Самый высокий = ',fam);
 
END.