В двумерном массиве поменять местами в каждой строке первый отрицательный и последний положительный элемент.

program Matrix;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
  ColCount = 3; // кол-во столбцов
  RowCount = 3; // кол-во строк
 
type
  TMatrix = array [0..RowCount - 1, 0..ColCount - 1] of Integer;
 
// инициализируем матрицу
procedure InitMatrix(out ArgM: TMatrix);
var
  I, J: Integer;
begin
  for I := 0 to RowCount - 1 do
    for J := 0 to ColCount - 1 do
      ArgM[I, J] := Random(10) - 5;
end;
 
// вывод на экран
procedure PrintMatrix(ArgM: TMatrix);
var
  I, J: Integer;
begin
  for I := 0 to RowCount - 1 do
  begin
    WriteLn;
    for J := 0 to ColCount - 1 do Write(Format('%2d|', [ArgM[I, J]]));
  end;
end;
 
// реализация задания
procedure SwapElements(var ArgM: TMatrix);
var
  I, J, Buffer: Integer;
  FirstPositive: Integer;
  FirstPositiveFound: Boolean;
  LastNegative: Integer;
begin
  for I := 0 to RowCount - 1 do
  begin
    FirstPositiveFound := False;
 
    for J := 0 to ColCount - 1 do
    begin
      if (ArgM[I, J] > 0) and not FirstPositiveFound then
      begin
        FirstPositiveFound := True;
        FirstPositive := J;
      end;
      
      if ArgM[I, J] < 0 then
      begin
        LastNegative := J;
      end;
    end;
 
    Buffer := ArgM[I, LastNegative];
    ArgM[I, LastNegative] := ArgM[I, FirstPositive];
    ArgM[I, FirstPositive] := Buffer;
  end;
end;
 
var
  M: TMatrix;
 
begin
  Randomize;
  InitMatrix(M);
  WriteLn('Before Swap');
  PrintMatrix(M);
  WriteLn;
  SwapElements(M);
  WriteLn('After Swap');  
  PrintMatrix(M);
  WriteLn;
  WriteLn('Press <Enter> to exit');
  ReadLn;
end.

procedure TForm1.Button1Click(Sender: TObject);
a: array [1..10] of integer;
 i,j,f,m:integer;
 n, k, code,p,s:Integer;
 
begin
repeat
 n:=StrToInt(InputBox('Ввод данных','Ввод количества элементов',''));
until n>2;
  for i:=0 to n-1 do
   begin
   StringGrid1.Cells[i,0]:='';
StringGrid2.Cells[i,0]:='';
   end;
 
StringGrid1.Colcount:=n;
StringGrid1.Width:=n*StringGrid1.DefaultColWidth+15;
StringGrid1.Visible:=true;
StringGrid2.Colcount:=n;
StringGrid2.Width:=n*StringGrid2.DefaultColWidth+15;
StringGrid2.Visible:=true;
for i:=1 to n do
  begin
        repeat
        st:=InputBox('ввод данныx','a('+IntToStr(i)+')=','');
        val( st,a[i],code);
        until code=0;
StringGrid1.Cells[i-1,0]:=intToStr(a[i]);
end;
 p:=0; [COLOR="Red"]вот эту можете половинку кода переделать??начало я могу на двумерный сделать![/COLOR]
 i:=0;
 while (p=0) and (i<=n-1) do
  begin
    i:=i+1;
    if a[i]<0 then p:=1;
  end;
 s:=0;
 j:=n+1;
 while (s=0) and (j>=2) do
  begin
    j:=j-1;
    if a[j]>0 then s:=1;
  end;
 if (p=1) and (s=1) then
 begin
   f:=a[i];
   a[i]:=a[j];
   a[j]:=f;
 end;
 for i := 1 to n do
   StringGrid2.Cells[i-1,0]:=intToStr(a[i]);
end;