Дан массив из N реальных чисел.Подсчитать, сколько в нем отрицательных, положительных

Поменяйте число 10 в задании массива и циклах на нужное число реальных чисел (выделено жирным)

var

 i, a, b, c: integer;

 m: array[1..10] of real;

begin

 for i := 1 to 10 do readln(m[i]);

 for i := 1 to 10 do

 begin

   if m[i] gt; 0 then a := a + 1;

   if m[i] = 0 then b := b + 1;

   if m[i] lt; 0 then c := c + 1;

 end;  

 writeln(с, ' ', a, ' ', b);

end.