Поменять местами в массиве А(8,8) первый отрицательный и первый положительный элементы

const
  n=8;
var
  a: array[1..n,1..n] of integer;
  i,j,iPol,jPol,iOtr,jOtr,t: byte;
  boo1, boo2: boolean;
begin
  writeln('Èñõîäíàÿ ìàòðèöà:');
  boo1:=true; boo2:=true;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
      if (a[i,j]>0) and boo1 then
      begin
        iPol:=i;
        jPol:=j;
        boo1:=false;
      end;
      if (a[i,j]<0) and boo2 then
      begin
        iOtr:=i;
        jOtr:=j;
        boo2:=false;
      end;
    end;
    writeln;
  end;
  if boo1 or boo2 then writeln('Íå âûïîëíåíû óñëîâèÿ çàäà÷è') else
  begin
    writeln('Ïåðâûé ïîëîæèòåëüíûé: a[',iPol,',',jPol,']');
    writeln('Ïåðâûé îòðèöàòåëüíûé: a[',iOtr,',',jOtr,']');
    t:=a[iPol,jPol];
    a[iPol,jPol]:=a[iOtr,jOtr];
    a[iOtr,jOtr]:=t;
    writeln('Ïðåîáðàçîâàííàÿ ìàòðèöà:');
    for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:4);
      writeln;
    end;
  end;
  readln;
end.