В двумерном массиве вставить перед четными столбцами столбец из нулей, а после нечетных строк строку из единиц

program prim2;
  uses crt;
  type mas=array[1..100,1.. 100] of integer;
  var a:mas;
      i,j,k,n:integer;
begin
  clrscr;
  randomize;
  write('n=');readln(n);
{Создаем и распечатываем двумерный массив.}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(45)-22;
          write(a[i,j]:4);
        end;
      writeln;
    end;

program prim2;
uses crt;
type mas=array[1..20,1..20] of integer;
var a:mas;
    i,j,p,n,m,k:integer;
begin
clrscr;
randomize;
write('n=');
readln(n);
{Создаем и распечатываем двумерный массив.}
writeln('Исходный массив');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    repeat
    a[i,j]:=-22+random(45);
    until not(a[i,j] in [0,1]);
    write(a[i,j]:4);
   end;
  writeln;
 end;
 {вставляем столбцы из нолей перед четными}
 k:=n;
 j:=k;
 while j>=1 do
 if j mod 2=0 then
  begin
   k:=k+1;
   for p:=k downto j do
   for i:=1 to n do
   a[i,p]:=a[i,p-1];
   for i:=1 to n do
   a[i,j]:=0;
   j:=j-1
  end
 else j:=j-1;
 {ставляем строки из 1 после нечетных}
 m:=n;
 i:=m;
 while i>=1 do
 if odd(i)then
  begin
   m:=m+1;
   for p:=m downto i+1 do
   for j:=1 to k do
   a[p,j]:=a[p-1,j];
   for j:=1 to k do
   a[i+1,j]:=1;
   i:=i-1
  end
 else i:=i-1;
 writeln('Вставка столбцов и строк');
 for i:=1 to m do
  begin
   for j:=1 to k do
   write(a[i,j]:4);
   writeln
  end;
 end.

program prim2;
uses crt;
type mas=array[1..20,1..20] of integer;
procedure vvod(var a:mas;var n:integer);
var i,j:integer;
begin
{ввод размера и элементов массива}
write('n=');
readln(n);
for i:=1 to n do
for j:=1 to n do
 repeat
  a[i,j]:=-22+random(45);
 until not(a[i,j] in [0,1]);
end;
procedure print(a:mas;n,m:integer);
var i,j:integer;
begin
{печать массива}
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln
 end;
end;
procedure stb(var a:mas;n:integer;var k:integer);
var i,j,p:integer;
begin
{вставляем столбцы из нолей перед четными}
k:=n;
j:=k;
while j>=1 do
if j mod 2=0 then
 begin
  k:=k+1;
  for p:=k downto j do
  for i:=1 to n do
  a[i,p]:=a[i,p-1];
  for i:=1 to n do
  a[i,j]:=0;
  j:=j-1
 end
else j:=j-1;
end;
procedure str(var a:mas;n,k:integer;var m:integer);
var i,j,p:integer;
begin
{ставляем строки из 1 после нечетных}
m:=n;
i:=m;
while i>=1 do
if odd(i)then
 begin
  m:=m+1;
  for p:=m downto i+1 do
  for j:=1 to k do
  a[p,j]:=a[p-1,j];
  for j:=1 to k do
  a[i+1,j]:=1;
  i:=i-1
 end
else i:=i-1;
end;
var a:mas;
    n,m,k:integer;
begin
clrscr;
randomize;
vvod(a,n);
writeln('Исходный массив');
print(a,n,n);
stb(a,n,k);
str(a,n,k,m);
writeln('Вставка столбцов и строк');
print(a,m,k);
readln
end.