На основаниии введенной информации о студентах вывести сводную ведомость о студентах-спортсменах по курсам

program prog;
uses crt;
type opros=record
number:integer;
surname:string;
year:integer;
pol:string;
grade:string;
kind:string;
end;
var student:array[1..250] of opros;
var i,n:integer;
begin
writeln('сколько ');
read (n);
for i:=1 to n do
with student[i] do
begin
writeln('введите номер');
readln(student[i].number);
writeln('ввежите фамилию');
readln(student[i].surname);
writeln('введите год');
readln(student[i].year);
writeln('введите пол');
readln(student[i].pol);
writeln('курс ') ;
readln(student[i].grade);
writeln('вид спорта');
readln(student[i].kind );
end;
writeln('ввод окончен ');
writeln('_____________________________________________________________________________');
writeln('ведомость ');
writeln('_____________________________________________________________________________');
for I:=1 to n do
with student[i]do
begin
writeln('номер');
writeln(student[i].number);
writeln(' фамилия ');
writeln (student[i].surname);
writeln(' год');
writeln(student[i].year);
writeln('пол');
writeln(student[i].pol);
writeln('курс ') ;
writeln(student[i].grade);
writeln('вид спорта');
writeln(student[i].kind );
end;
writeln('вывод окончен');
end.