Соч 6 по информатике за третью четверть по информатике

//Не самое изящное решение
//Pascal ABC.NET 3.1

Const
 n=5;

 Var ar:array[1..2*n] of integer;
 j,a,k,i,t:integer;
begin
 write('A:');
readln(a);
 writeln('Array:');
 for i:=1 to n do
 readln(ar[i]);
 j:=1;
 k:=n;
 while j<>k do
  begin
   if ((ar[j]>=0) and (ar[j+1]>=0)) or ((ar[j]<=0) and (ar[j+1]<=0)) then
   begin
    t:=ar[k];
    for i:=k-1 downto j do
     ar[i+1]:=ar[i];
    ar[j+1]:=a;
    inc(k);
    j:=j+2;
    ar[k]:=t;
   end
   else
 inc(j);
  end;
 writeln('Final array:');
 for i:=1 to k do write(ar[i]:4);
end.

Пример ввода 1:
6
1
2
3
4
5
Пример вывода 1:
1 6 2 6 3 6 4 6 5

Пример ввода 2:
6
-1
2
-3
4
-5
Пример вывода 2:
-1 2 -3 4 -5

Пример ввода 3:
6
1
2
-3
4
5
Пример вывода 3:
1 6 2 -3 4 6 5

Type
    Mass = array [1..1000, 1..1000] of Integer;

var
    A: Mass;
    n, m, i, j: Integer;

begin
    Write('Количество строк массива: ');
    ReadLn(n);
    Write('Количество столбцов массива: ');
    ReadLn(m);
    for i := 1 To n Do
    begin
        for j := 1 To m Do
        begin
            Write('Введите элементы массива A[', i, ',', j, ']=');
            ReadLn(A[i, j]);
        end;
    end;
    
    WriteLn('Итоговый массив:');
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            A[1, j] := 111;
            A[i, 2] := 222;
            Write(' A[', i, ',', j, ']=', A[i, j], ';')
        end;
        WriteLn;
    end;
end.

Задание можно озвучить так:
Создать массив целых чисел, заполнить его вручную. Заменить все элементы первого рядка на 111 и все элементы второго столбца на 222. Вывести итоговый массив.