Дан одномерный массив, элементами которого являются вещественные числа. Определить количество отрицательных чисел в массиве — Pascal(Паскаль)

Uses
  CRT;

var
  i, kol, n: byte;
  a: array [1 .. 10] of real;

begin
  readln(n);
  kol := 0;
  for i := 1 to n do
  begin
    write('a[', i, '] = ');
    readln(a[i]);
    if a[i] < 0 then
      inc(kol);
  end;
  write('Kol:=', kol);

end.