Нужно написать программу определяющую каких элементов больше положительных или отрицательных

uses crt;
const n=12;
var a:array[1..n] of integer;
i,k1,k2:integer;
s:real;
BEGIN
clrscr;
for i:=1 to n do
 a[i]:=random(20)-10;
 
 for i:=1 to n do
  write(a[i]:4) ;
   k1:=0;k2:=0;
  for i:=1 to n do
   if a[i]>0 then
    inc(k1)
   else
    if a[i]<0 then
     inc(k2);
     writeln;
     if (k1=0) and (k2=0)  then
      writeln('Положительныйх и отрицательных нету... ')
       else
        if k1=0 then
         writeln('Нету положительных...')
        else
         if k2=0 then
          writeln('Нету отрецательных... ')
          else
           if k1>k2 then
            writeln('Положительных больше...')
            else
             writeln('Отрицательных больше...')
             else
               if k1=k2
               writeln('Одинаковое количество... ')
 
readkey;
END.