Задача на паскале.Ошибка, но не пойму где ,не выводит учеников, которые соответствуют требования

program p1;
type ball=record
fio:string;
end;
var 
  anketa: array [1..100] of ball;
  i:integer;
  a,b,c:integer;
   d,cr_ball_class:real;
     k,x,z,v: integer;
  begin
    for i:=1 to 3 do begin
      writeln('Напиши сведения об ученике');
      writeln('Введите ФИО ученика');
      readln(anketa[i].fio);
      writeln('Введите oценку за русский язык- ');
      readln(a);
      writeln('Введите оценку за математику- ');
      readln(b);
      writeln('Введите оценку за физику- ');
      readln(c);
      d:=(a+b+c)/3;
      writeln('Средний балл ученика: ',d);
      if (a=5) or (b=5) or (c=5) then k:=k+1;
      if (a=4) or (b=4) or (c=4) then x:=x+1;
      if (a=3) or (b=3) or (c=3)  then z:=z+1;
      if (a=2) or (b=2) or (c=2)  then v:=v+1;
      cr_ball_class:= (5*k+4*x+3*z+2*v)/(k+z+x+v);
    end;
 writeln('Средний балл класса: ', cr_ball_class);
    writeln;
        for i:=1 to 3 do
      if (d> cr_ball_class) then
         writeln( anketa[i].fio);     
  end.

const n=3;
 
  for i:=1 to n do with anketa[i] do
    avg:=avg+a+b+c;
  avg:=avg/n/3;
  for i:=1 to n do with anketa[i] do
    if (a+b+c)>avg*3 then
      WriteLn(fio);