Вывести средний рост мальчиков и имена всех мальчиков ниже среднего

uses crt;
type zapis=record
           im:string;
           pol:char;
           rost:real;
           end;
var
a:array [1..20] of zapis;
n,i:integer;
max,sr:real;
t:string;
w:char;
begin
clrscr;
writeln('kolichestvo detei:');
readln(n);
for i:=1 to n do
begin
writeln('rebenok ',i);
write(' - imya: ');readln(a[i].im);
write(' - pol (m/g): ');readln(a[i].pol);
write(' - rost: ');readln(a[i].rost);
end;
clrscr;
writeln('spisok detei:');
writeln('--------------------------------------------------------');
writeln('Imya':15, ' | ', 'Pol':15, ' | ', 'Rost':20, ' | ');
writeln('--------------------------------------------------------');
for i:=1 to n do
writeln(a[i].im:15, ' | ', a[i].pol:15, ' | ', a[i].rost:20:2,' | ');
writeln('--------------------------------------------------------');
writeln;
max:=a[1].rost;
sr:=0;
for i:=1 to n do
begin
if a[i].rost>max then  max:=a[i].rost;
if a[i].pol='m' then sr:=sr+a[i].rost;
end;
sr:=sr/n;
writeln('Samii visokii:');
for i:=1 to n do
if a[i].rost=max then writeln('  - ',a[i].im);
writeln;
writeln('Srednii rost mailchikov: ',sr:5:2);
writeln;
writeln('Malchiki nige srednego:');
for i:=1 to n do
if (a[i].rost<sr)and( a[i].pol='m') then writeln('  - ',a[i].im);
end.