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

program var22;
uses crt;
var
a: array[1..50] of real;
n:integer;
neud:real;
i:byte;
 
begin
clrscr;
write('Количество студентов n=');
readln(n);
writeln('Введите оценки:');
neud:=0;
for i:=1 to n do
begin
write('Оценка ',i,' Студента  ');
 readln(a[i]);
if a[i]<3 then neud:=neud+1;
end;
writeln(neud,' студентов не сдали первый экзамен');
readln;
end;
end.

program var22;
uses crt;
var
a: array[1..50] of real;
n:integer;
neud:real;
i:byte;
 
begin
clrscr;
write('Количество студентов n=');
readln(n);
writeln('Введите оценки:');
neud:=0;
for i:=1 to n do
begin
write('Оценка ',i,' Студента  ');
a[i]:=random(4)+2;
if a[i]<3 then neud:=neud+1;
end;
writeln(neud,' студентов не сдали первый экзамен');
readln;
end;
end.