ввести несколько чисел, определить каких чисел больше - положительных либо отрицательных

program zz1;

var a, b,  n, i, m:integer; // задаем переменные целого типа

begin

write( введите n );  // вводим с клавиатуры число

read(n);  

for i:=1 to n do

begin

read(a);  // вводим число

if a gt; 0 then b:=b + 1; // проверяем, если число больше нуля, то считаем

if a lt; 0 then m:=m + 1; // проверяем, если число меньше нуля, то считаем

end;

if b gt; m // проверяем, если количество положительных больше, то

then write( больше положительных ) //выводим один ответ

else write( больше отрицательных ); // по другому, выводим иной ответ

end.