Для каждого элемента массива напечатать число положительных и отрицательных чисел, стоящих перед ним

program Project1;
 
const
  maxelem = 100;
 
var
  i,j: integer;      { Вспомогательные переменные для организации циклов}
  a: array [1..maxelem] of integer; { Переменная для хранения массива}
  pos, neg: integer; { Переменные для подсчета количества элементов}
begin
  Randomize;
  writeln('Исходный массив: ');
  for i:= 1 to maxelem do
    begin
      a[i]:= random(200) - 100;  { Заполнение массива случайными числами}
      write(a[i]:6);             {Вывод элементов массива в консоль}
      if i mod 10 = 0 then       {Организация  вывода элементов по 10 в строке}
        writeln;
    end;
  writeln('Количество положительных и отрицательных элементов,');
  writeln('стоящих перед элементом с индексом, указанном в таблице');
  writeln('-----------------------------------');
  writeln('| № элем.: |  полож.: | отрицат.: |');
  writeln('-----------------------------------');
  for i:= 1 to maxelem do
    begin
      pos:= 0;       { Установка счетных переменных в нуль}
      neg:= 0;
      for j:= 1 to i-1 do
        begin
          if a[j] < 0 then      { Условие для поиска элементов с отрицательным значением}
            neg:= neg+1         { Увеличение счетчика на единицу.}
          else
            if a[j] > 0 then    { Условие для поиска элементов с положительным значением}
              pos:= pos+1;      { Увеличение счетчика на единицу.}
        end;
      { Вывод результатов подсчета в консоль}
      writeln('|',i:10,'|', pos:10,'|', neg:11,'|');
    end;
 
  Readln;
end.