Cклавиатуры вводятся 10 целых чисел. определить, каких больше: положительный или отрицательных.

const     N = 10;
var 
  i,otr,pol,K: integer;
BEGIN
otr:=0; //отриацательные числа
pol:=0; //положительные числа
for i:=1 to N do
begin   
Write('Введите число  #', i, ': '); Read(K);   
if (K < 0) then inc(otr)   
else        
 if (K <> 0) then inc(pol);
end;
if (otr > pol) then Writeln('Отрицательных больше')else writeln('Положительных больше');end.