Определите, сколько студентов имеют неудовлетворительную оценку хотя бы по одному предмету

Const m=50;
Type student=Record
     FIO:string[30];
     Mt:2..5;
     Fz:2..5;
     Cher:2..5;
     Chim:2..5;
     Sp:2..5;
     End;
Var A:array[1..m] of student;
    i,k,n:integer;
Begin
     write('Введите кол-во студентов: ');readln(n);
     For i:=1 to n do
     With A[i] do Begin
      write('Введите Ф.И.О: ');readln(FIO);
      write('Введите оценку по математике [',i,']-го студента: ');readln(Mt);
      write('Введите оценку по физике [',i,']-го студента: ');readln(Fz);
      write('Введите оценку по черчению [',i,']-го студента: ');readln(Cher);
      write('Введите оценку по химии [',i,']-го студента: ');readln(Chim);
      write('Введите оценку по сопромату [',i,']-го студента: ');readln(Sp);
     End;
     For i:=1 to n do
     With A[i] do
      if (Mt=2)or(Fz=2)or(Cher=2)or(Chim=2)or(Sp=2) then inc(k);
     writeln('Кол-во студентов с неудолетворительной оценкой= ',k);
     readln;
End.