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

[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]

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

Uses crt;
Const
n=3;
Type student=record
Fio:string[20];
Grow:integer;
Gpos:integer;
Kurs:integer;
Gruppa:integer;
inf,ist,mat:byte;
sball:real;
Osball:real
end;
var
i,j:integer;S:student;
mas:array[1..5] of student;
s_inf,s_ist,s_mat,osball:real;
begin
for i:=1 to n do with mas[i] do
begin
writeln('i=',i:4);
writeln('FIO');
readln(FIO);
writeln('Grow');
readln(Grow);
writeln('Gpos');
readln(GPos);
writeln('Kurs');
readln(Kurs);
Writeln('Gruppa');
readln(Gruppa);
writeln('Otzenki{[inf,ist,mat]');
readln(inf,ist,mat);
sball:=(inf+ist+mat)/3;
Osball:=(s_inf+s_ist+s_mat)/3;
clrscr;
end;
s_inf:=0;s_ist:=0;s_mat:=0;
for i:=1 to n 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_inf:=s_inf/n;
s_ist:=s_ist/n;
s_mat:=s_mat/n;
Osball:=(s_inf+s_ist+s_mat)/3;
for i:=1 to n do with mas[i] do
begin
if mas[i].sball<mas[i].osball then
begin
writeln(Fio);