С клавиатуры вводятся числа (положительные и отрицательные). Ввод чисел заканчивается нулем. Найти количество четных положительных и нечетных отрицательных. Вывести каких больше (НА ПАСКАЛЕ)

program ch;

uses

crt;

var

k, cp, no: integer;

begin

k := 1;

cp := 0;

no := 0;

while k <> 0 do

begin

readln(k);

if ((k < 0) and (k mod 2 <> 0)) then

no := no + 1 ;

if ((k > 0) and (k mod 2 = 0)) then

cp := cp + 1 ;

end;

if no > cp then

writeln('Больше нечетных отрицательных') ;

if no < cp then

writeln('Больше четных положительных') ;

if no = cp then

writeln('Количество четных положительных равно количеству нечетных отрицательных') ;

readln;

end.