Програмированиииииие!!!ПОМОГИТЕ Вводится 5 чисел.подсчитать сколько из них целых,положительных,отрицательных и нулей

Program Chisla; Uses Crt; var p,o,z,c,i:integer;        n:real;             begin     clrscr;     write('Введите числа: ');     p:=0;z:=0;o:=0;c:=0;       for i:=1 to 5 do            begin                readln(n);                 if (n=0) then z:=z+1; // Нуль не ни положительным ни отрицательным ни целым                   if ((n mod 2)<>0) and (n>0) then p:=p+1;                     if ((n mod 2)<>0) and (n<0) then o:=o+1;                 if ((n mod 2)=0) and (n>0) then                           begin                                p:=p+1;                                      c:=c+1;                               end; if ((n mod 2)=0) and (n<0) then                           begin                                o:=o+1;                                    c:=c+1;                            end;       writeln;       writeln('Положительных чисел: ',p);         writeln('Отрицательных чисел: ',o);        writeln('Целых чисел: ',c);            writeln('Нулей: ',z);        readkey;   end.