Вводятся в цикле по 4 оценки, полученные студентами в сессию определить число неуспевающих студентов — Pascal(Паскаль)

var n,i,j,k2,ch:integer;
    a:array[1..4] of byte;
begin
write('Количество студентов n=');
readln(n);
writeln('Введите по 4 оценки каждого (от 2 до 5)');
ch:=0;//число неуспевающих
for i:=1 to n do
 begin
  writeln('студент ',i);
  k2:=0;//наличие двоек
  for j:=1 to 4 do
   begin
    repeat//проверяем чтобы вводили только 2-5
    readln(a[i]);
    until a[i] in [2..5];
    if a[i]=2 then k2:=1;//если есть 2
    if k2=1 then ch:=ch+1;//считаем
   end;
 end;
write('Число неуспевающих=',ch);
readln
end.