Помогите написать в Паскале программу

type zap =record
name : string;
mark : array [1..5] of byte;
sred : real;
end;
var i,j : byte;
maxi : real;
stroka: string;
Student : array [1..25] of zap;
begin
writeln ('ФИО':7, ' оценки': 21, ' средний бал':24);
randomize;
for i := 1 to 25 do
begin
str(i,stroka);
if i<10 then Student[i].name:='студент_0'+stroka
else Student[i].name:='студент_'+stroka;
write(Student[i].name);
for j := 1 to 5 do
begin
Student[i].mark[j]:= 2 + random (4);
write (Student[i].mark[j]:5);
Student[i].sred := Student[i].sred + Student[i].mark[j];
end;
Student[i].sred := Student[i].sred/5;
writeln (Student[i].sred:15:2);
end;
maxi:= Student[1].sred;
for i := 2 to 25 do
if Student[i].sred > maxi then
begin
maxi := Student[i].sred;
j := i;
end;
writeln('Студент с максимальным средним баллом: ',Student[j].name);
writeln('Средний балл у него = ', maxi:4:2);
end.

Спасибо за набранный шаблон пользователю "Арслан Махмутов"

type zap =record
name : string;
mark : array [1..5] of byte;
sred : real;
end;
var i,j : byte;
max : real;
st : array [1..25] of zap;
begin
for i := 1 to 25 do
begin
writeln('Введите фамилию студента');
readln(St[i].name);
writeln('Введите 5 оценок');
for j := 1 to 5 do
readln(St[i].mark[j]);
St[i].sred := 0;
for j := 1 to 5 do
St[i].sred := St[i].sred + St[i].mark[j];
St[i].sred := St[i].sred/5;
end;
max := St[1].sred
for i := 2 to 25 do
if St[i].sred > max then
begin
max := St[i].sred;
j := i;
end;
writeln('Студент с максимальным средним баллом :',St[j].name);
writeln('Средний балл =', max);
readln;
end.