дана квадратная матрица размерности n, состоящая из целых чисел.вывести номер строки, содержащий максимальное количество отрицательных чисел и строки, содержащий максимальное количество положительных чисел строки.

Попробуй примерно так:

{... тут определения переменных}

begin
  {... тут ввод матрицы}
  xNe:=0;
  xPo:=0;
  nNe:=1;
  nPo:=1;
  for i:=1 to n do begin
    Ne:=0;
    Po:=0;
    for j:=1 to n do if a[i,j]<0 then Inc(Ne) else if a[i,j]>0 then Inc(Po);
    if Ne>xNe then begin
      xNe:=Ne;
      nNe:=i
    end;
    if Po>xPo then begin
      {тут я специально пропустил один оператор; догадайся, какой - и вставь}
      nPo:=i
    end
  end;
  WriteLn('Max negative numbers amount is in line ',nNe);
  WriteLn('Max positive numbers amount is in line ',nPo);
  ReadLn
end.

Попробую.