Подсчёт людей выше среднего роста

uses crt;
const sr=170;
type Grup=record
          fio:string[20];
          pol:char;
          rst:byte;
          end;
     Tmas=array[1..50]of Grup;
procedure Spisok(var x:byte;var sp:Tmas);
var i:byte;
begin
write('Введите количество студентов: ');
readln(x);
writeln('Введите даные:');
for i:=1 to x do
  begin
    writeln('Студент ',i);
    write(' Фамилия И.О.: ');readln(sp[i].fio);
    repeat
    write(' Пол (М,Ж): ');readln(sp[i].pol);
    until sp[i].pol in ['М','Ж'];
    write(' Рост: ');readln(sp[i].rst);
  end;
end;
procedure Devushki(x:byte;sp:Tmas);
var i,k:byte;
begin
writeln('Девушки выше среднего роста:');
k:=0;
for i:=1 to x do
if (sp[i].pol='Ж')and (sp[i].rst>sr) then
   begin
    writeln(sp[i].fio,'  рост ',sp[i].rst,' см');
    k:=1;
   end;
if k=0 then writeln('Девушек выше среднего роста нет!');
end;
procedure Yunoshi(x:byte;sp:Tmas);
var i,k:byte;
begin
writeln('Юноши выше среднего роста:');
k:=0;
for i:=1 to x do
if (sp[i].pol='М')and (sp[i].rst>sr) then
   begin
    writeln(sp[i].fio,'  рост ',sp[i].rst,' см');
    k:=1;
   end;
if k=0 then writeln('Юношей выше среднего роста нет!');
end;
 
var gr:Tmas;
    n:byte;
begin
clrscr;
Spisok(n,gr);
clrscr;
Devushki(n,gr);
Yunoshi(n,gr);
readln
end.

Const
  sredni = 170;
Type
 ycheniki=record
   fuo:string[60];
   nol:char;
   Poct:word;
 end;
var
  gryn:arrat [1..33] of ycheniki;

 Writeln('Введите количество человек');
 Readln(n); {n-количество учеников}

 for i:=1 to n do
 begin
  Writeln('BBedute FUO');
  readln(gryn[i].fuo);
  . . . {по такой же аналогии делаете ввод всех остадьных данных}
 end;

For i:=1 to n do
 if gryn[i].nol='m' or gryn[i].nol='M' then
   if gryn[i].Poct>sredni then
     Write(gryn[i].fuo);