Получить новый массив A (K, N+1) вставив столбец между вторым и третьим столбцом

Program Zad1.
const
K = 3;
N = 4;
var
a: array[1 .. K, 1 .. N] of Integer;
b: array[1 .. K, 1 .. N + 1] of Integer;
i, j, sum: integer;
begin
sum := 0;
for i := 1 to K do
for j := 1 to N do
begin
Write('Введите A(', i, ',', j, '): ');
ReadLn(a[i, j]);
sum := sum + a[i, j];
end;
WriteLn('Sum = ', sum);
 
WriteLn('Исходный массив: ');
for i := 1 to K do
begin
for j := 1 to N do
begin
Write(a[i, j]:5, ' ');
end;
WriteLn;
end;
 
for i := 1 to K do
begin
for j := 1 to N do
begin
if j < 3 then
b[i, j] := a[i, j]
else if j >= 3 then
b[i, j + 1] := a[i, j];
end;
b[i, 3] := sum;
end;
 
WriteLn('Получившийся массив: ');
for i := 1 to K do
begin
for j := 1 to N + 1 do
begin
Write(b[i, j]:5, ' ');
end;
WriteLn;
end;
end.

Program Zad1;
const K = 3;
var a: array[1 .. K, 1 .. K+2] of Integer;
    N, i, j, sum: integer;
begin
N:=K+1;
sum := 0;
for i := 1 to K do
for j := 1 to N do
 begin
  Write('Введите A(', i, ',', j, '): ');
  ReadLn(a[i, j]);
  sum := sum + a[i, j];
 end;
WriteLn('Исходный массив: ');
for i := 1 to K do
 begin
  for j := 1 to N do
  Write(a[i, j]:5);
  WriteLn;
 end;
WriteLn('Sum = ', sum);
N:=N+1;
for j:=N downto 4 do
for i:=1 to K do
a[i,j]:=a[i,j-1];
for i:=1 to K do
a[i,3]:=sum;
WriteLn('Получившийся массив: ');
for i := 1 to K do
 begin
  for j := 1 to N do
  Write(a[i, j]:5);
  WriteLn;
 end;
end.