Опять же записи, очень туплю Опции

[Zundell]

Ребят,помогите плиз!че за фигню пишет?Задание следующее:
Вычислить средний балл группы и распечатать список студентов, имеющих средний балл ниже среднего балла группы!(Я понял так,что средний бал нам уже дан и его я ввожу с клавивтуры.что я и написал)

Type
 student=record
Fio:string[50];
GodRow:integer;
GodPost:integer;
SredOz:real;
Kurs:integer;
Gruppa:string[10];
end;
var
S:student;
grup:array[1..25] of student;
i,j,k,sr:integer;
begin
for i:=1 to 25 do
begin with S do begin
writeln('Vvedite FIO:');
readln(FIO);
writeln('Vvedite GodRow:');
readln(GodRow);
writeln('Vvedite GodPost:');
readln(GodPost);
writeln('Vvedite SredOz:');
readln(SredOz);
writeln('Vvedite Gruppa:');
readln(Gruppa);
writeln('Vvedite Kurs:');
readln(Kurs);
end;
sr:=0;
for i:=1 to 25 do
begin
sr:=sr+S.SredOz;{Пишет Type mismatch}

[Zundell]

фуф...вроде все сделал...терь осталась проблема в том,что он выводит на экран только по одному человеку,чей средний бал меньше общего и чтобы просмотреть другого необходимо на enter нажать!как это исправить,сделать чтоб сразу весь список выводился?

uses crt;
Type
student=record
Fam:string[10];
Grow:integer;
Gpost:integer;
Kurs:integer;
Gruppa:integer;
sr_ball:real;
inf,ist,mat:real;
end;
var
s:student;
mas:array[1..10] of student;
i,j:integer;
SR_grup:real;
s_inf,s_ist,s_mat:real;
begin
for i:=1 to 5 do  with mas[i] do
begin
write('Vvedite Familiju: ');
readln(Fam);
write('Vvedite God rowdenija: ');
readln(Grow);
write('Vvedite God postuplenija: ');
readln(Gpost);
write('Vvedite Kurs: ');
readln(Kurs);
write('Vvedite gruppu: ');
readln(gruppa);
write('Vvedite ozenki po informatike,istorii,mathematike: ');
readln(inf,ist,mat);
sr_ball:=(inf+ist+mat)/3;
end;
s_inf:=0;s_ist:=0;s_mat:=0;
for i:=1 to 5 do begin
s_inf:=s_inf+mas[i].inf;
s_ist:=s_ist+mas[i].ist;
s_mat:=s_mat+mas[i].mat;
end;
s_ist:=s_ist/5;
s_inf:=s_inf/5;
s_mat:=s_mat/5;
Sr_grup:=sr_grup+s_inf;
Sr_grup:=sr_grup+s_ist;
Sr_grup:=sr_grup+s_mat;
sr_grup:=sr_grup/3;
for i:=1 to 5 do  with mas[i] do begin
if sr_grup>sr_ball then begin
clrscr;
writeln(Fam,' ',Gpost,' ',Grow,' ',Kurs,' ',Kurs,' ',sr_ball:3:2);
writeln('Srednij ball po gruppe',sr_grup:3:2);
readln;
end;
end;
end.

в массиве опечатка [1..5]