Имеется информация о студентах группы: имя, пол, рост, возраст (полных лет). Определить средний рост студентов (юношей) в группе, которым больше Х лет (Х задается поль-зователем) — Pascal(Паскаль)

uses crt;
const n=5;
type a=record
n: string;
s: char;
r: word;
v: byte;
end;
var c: array[1..n] of a; i,k: byte; sr: word;
clrscr;
writeln('введите инф. о студентах: ');
for i:=1 to n do
begin
write('введите имя ',i,'-ого студента: ');
read(c[i].n);
write('его пол (м/ж): ');
read(c[i].s);
write('рост (см.): ');
read(c[i].r);
write('возрвст (полных лет): ');
read(c[i].v);
writeln(^j);
end;
write('введите значение границы возраста: ');
read(x);
for i:=1 to n do
if c[i].v>x then
begin
sr:=sr+c[i].r;
inc(k);
end;
sr:=round(sr/k);
write('ср. рост студентов старших ',x,' лет = ',sr);
end.