Дан массив действительных чисел,размерность которого N. Подсчитать, сколько в нем отрицательных,положительных и нулевых элементов — Pascal(Паскаль)

uses crt;
type mas=array[1..100] of integer;
var kol1,kol2,kol3:byte;
    i,n:integer;
    m:mas;
begin
  clrscr;
  writeln('Razmer massiva:');readln(n);
  writeln('Vvedite elementy:');
  for i:=1 to n do
  readln(m[i]);
  kol1:=0;
  kol2:=0;
  kol3:=0;
  for i:=1 to n do
    if (m[i]=0) then inc(kol1)
                else if (m[i]>0) then inc(kol2)
                                 else inc(kol3);
  writeln('Kolichestvo nuley:',kol1);
  writeln('Kolichestwo poloczitelnih:',kol2);
  writeln('Kolichestwo otricatelnih',kol3);
  readln;
end.