Информатика. Паскаль.Подсчитать количество отрицательных элементов одномерного массива

Program P1;
uses crt; {Нужно для очистки экрана, писать не обязательно}
var i, n, count: integer;
a:array [1..50] of real;

begin
clrscr;
write('n= '); readln(n);
for i:=1 to n do
  readln(a[i]);
for i:=1 to n do
  if a[i]<0 then count:=count+1;
writeln('В вашем массиве ', count, ' отрицательных элементов');
readln;
end.