Записи, паскаль

[iSkulll]

Вычислить средний балл группы и распечатать список студентов, имеющих средний балл выше среднего балла группы.
Написал программный код, но ничего не выходит, подскажите ошибку

Program PR13z2;
type gruppa=record
     name:string[20];
     SRBAL:real;
     god:integer;
end;
const n=3;
var student:array[1..n] of gruppa;
    i:Integer;
    k:real;
begin
  k:=0;
  for I:=1 to n do with student[I] do
    begin
      writeln;
      write('имя ');
      read(name);
      write('средний бал');
      read(SRBAL);
      write('год рождения ');
      read(god);
      readln;
    end;
  for i:=1 to n do with student[i] do
    k:=k+SRBAL;
    writeln('студенты, средний бал которых выше среднего балла группы ');
  for I:=1 to n do with student[I] do
    begin with student [i] do
      if k=srbal
        then writeln(name[i]);
    end;
end.

[Летучий_СкилетиК]

Program PR13z2;
type gruppa=record
name:string[20];
SRBAL:real;
god:integer;
end;
const n=3;
var student:array[1..n] of gruppa;
i:Integer;
k:real;
begin
for I:=1 to n do with student[I] do
begin
writeln;
write('èìÿ ');
read(name);
write('ñðåäíèé áàë');
read(SRBAL);
write('ãîä ðîæäåíèÿ ');
k:=k+SRBAL;
read(god);
readln;
end;
k:=k/n;
for i:=1 to n do
with student[i] do
    if SRBAl>k then writeln(name);
end.

[Mad_Cat]

for I:=1 to n do with student[I] do
    begin with student [i] do
      if srbal>=k/n
        then writeln(name);
    end;