Написать программу которая подсчитывает количество студентов получивших неудовлетворительную оценку на первом экзамене если известно что оценки хранятся в одномерном массиве — Pascal(Паскаль)

program var22;
var
a: array[1..50] of real;
n:integer; 
neud:real; 
i:byte;
begin
write('n=');
readln(n);{вводим кол-во студентов}
writeln('------:');
neud:=0;{ставим счётчик несдавших на 0}
for i:=1 to n do{запускаем цикл}
begin
write('Ввести ',i,' оценку  ');
readln(a[i]);{вводим оценку Итого студента}
if a[i]<3 then neud:=neud+1;
{если оценка меньше 3, тогда счетчик увеличиваем на 1}
end;
writeln(neud,' ctudentiv ne zdali 1iy ekzamen!');{выводим кол-во несдавших}
readln;
end.