Решить в Паскале: Последовательно вводятся N целых чисел. Найти, каких посреди

Var
cnt1, cnt2,n,tmp:integer;
begin
Readln(N);
while n gt; 0 do
 begin
  n:= n -1;
  Read(tmp);
  if tmp gt; 0 then cnt1:= cnt1 + 1;
  if tmp lt; 0 then cnt2:= cnt2 + 1;
 end;
 if cnt1 gt; cnt2 then Writeln('Положительных больше')
  else if (cnt1 = cnt2) then writeln('Однообразное количество')
    else Writeln('Отрицательных больше');
end.

Пример:
4
-1 -1 -1 1
Отрицательных больше

Const
  nn=100;

var
  i,n,d:integer;
  a:array[1..nn] of integer;

begin
  Write('n = '); Read(n);
  Randomize;
  d:=0;
  for i:=1 to n do begin
    a[i]:=Random(21)-10;
    Write(a[i],' ');
    if a[i]gt;0 then d:=d+1
    else
      if a[i]lt;0 then d:=d-1
    end;
  Writeln;
  if dgt;0 then Writeln('Положительных чисел больше')
  else
    if dlt;0 then Writeln('Отрицательных чисел больше')
    else Writeln('Положительных и отрицательных поровну')
end.

Пример
n = 13
-1 -5 3 -3 -4 -8 1 6 4 7 -7 10 7
Положительных чисел больше