Надо пользователь вводит n элементов массива. требуется определить количество элементов, значение которых больше 5.

Var
n,a,i,k:integer;
begin
k:=0;
writeln('введите кол-во чисел');
readln(n);
writeln('Вводите числа');
for i:=1 to n do
begin
read(a);
if a>5 then
 k:=k+1;
end;
writeln('чисел больше 5: ',k);
end.

Пример
введите кол-во чисел
5
Вводите числа
5 7 9 3 1
чисел больше 5:2