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

Program p_2;
var
a : array[1..10,1..10] of integer; // двумерный массив.
i, j, p, o : integer;
begin
//  Тут считаем,что массив уже получен
for i := 1 to 10 do
  begin
    p := 0;
    o := 0;
    for j := 1 to 10 do
      if (a[i,j] > 0)
        then p := p + 1
        else o := o + 1;
    if(o = p) then
      for j := 1 to 10 do
        write(a[i,j], ' ');
  end;
end.