каких элементов больше:отрицательных или положительных?

Помогите с задачей по паскалю. Дан целочисленный массив размера х, посчитать каких элементов положительных или отриц.

const
 X = 50;

var
 a: array [0..X-1] of integer;
 i: integer;
 plus: integer;
 minus: integer;

begin
 {инициализируем массив случайными числами от -50 до 49}
 for i:=0 to X-1 do a[i]:=random(100)-50;

 {инициализируем начальное число счётчиков}
 plus:=0;
 minus:=0;

 for i:=0 to X-1 do
  if a[i] < 0
  then
   minus:=minus+1
  else
   plus:=plus+1;

 if minus > plus then
  writeln('отрицательных (', minus, ') больше чем положительных (', plus, ')')
 else
  writeln('положительных (', plus, ') больше чем отрицательных (', minus, ')');

end.

отформатированный файл + с учётом когда колво положительных и отрицательных равно можно скачать здесь