В таблице хранятся следующие данные о студентах: фамилия, имя, отчество, рост, масса. Вычислить средний рост студентов, рост самого высокого и самого низкого студента. Сколько студентов могут заниматься в баскетбольной секции, если рост баскетболиста должен быть больше 170 см — Pascal(Паскаль)

uses crt;
const n=10;
type a=record
f: string;
n: string;
o: string;
r: word;
v: byte;
end;
var b: array[1..n] of a; i,l,k,m: byte; sr: real; max,min: word;
begin
m:=0;
clrscr;
For i:=1 to n do
begin
write('введите фамилию ',i,'-ого ученика: ');
read(b[i].f);
write('его имя: ');
read(b[i].n);
write('его отчество: ');
read(b[i].o);
write('рост: ');
read(b[i].r);
write('вес: ');
read(b[i].v);
writeln(^j);
end;
for i:=1 to n do
sr:=sr+b[i].r;
sr:=sr/n;
writeln('средний рост студентов = ',sr:4:2);
max:=b[1].r;
min:=b[1].r;
k:=1;
l:=1;
for i:=1 to n do
begin
if b[i].r>max then 
begin
max:=b[i].r;
k:=i;
end;
if b[i].r<min then 
begin
min:=b[i].r;
l:=i;
end;
end;
writeln('наибольший рост имеет ',k,'-ый студент: ',max,' см.');
writeln('наименьший рост имеет ',l,'-ый студент: ',min,' см.');
for i:=1 to n do
if b[i].r>170 then
inc(m);
writeln(m,' студентов могут заниматься баскетболом');
end.