Вставить после каждого нечетного столбца матрицы столбец, состоящий из единиц

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of byte;
    n,i,j:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=(n-j+i)*ord(j>=i);
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln
end.

uses crt;
const nmax=5;
var a:array[1..2*nmax,1..2*nmax] of real;
    n,i,j:integer;
    x:real;
begin
clrscr;
repeat
write('Размер половины матрицы от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
for i:=1 to 2*n do
 begin
  for j:=1 to 2*n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
for i:=1 to n do
for j:=1 to n do
 begin
  x:=a[i,j];
  a[i,j]:=a[n+i,j];
  a[n+i,j]:=a[n+i,n+j];
  a[n+i,n+j]:=a[i,n+j];
  a[i,n+j]:=x;
 end;
writeln('Перестановка блоков по часовой стрелке:');
for i:=1 to 2*n do
 begin
  for j:=1 to 2*n do
  write(a[i,j]:5:2);
  writeln;
 end;
readln
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,k,imx,buf:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4)
   end;
  writeln;
 end;
writeln;
{перестановка строк по неневозрастанию элементов последнего столбца
сортировка выбором}
for i:=1 to n-1 do {от первой строки до предпоследней}
 begin
  imx:=i;{выбираем номер максимального элемнта}
  for k:=i+1 to n do {впереди}
  if a[k,n]>a[imx,n] then imx:=k;{если находим больше, запоминаем}
  for j:=1 to n do{все элемнты строк}
   begin
    buf:=a[i,j];
    a[i,j]:=a[imx,j];{проверяемой и найденной обмениваем}
    a[imx,j]:=buf;
   end;
 end;
writeln('Строки по невозрастанию последних элементов:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

uses crt;
const nmax=10;
var a:array[1..2*nmax,1..2*nmax] of integer;
    n,n1,n2,i,j,k:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    repeat
    a[i,j]:=random(50);
    until not(a[i,j] in [0,1]);
    write(a[i,j]:4);
   end;
  writeln;
 end;
{вставка столбцов}
n1:=n;{новое количество столбцов}
j:=n1;{начнем с конца чтобы не менялись индексы}
while j>=1 do
if odd(j) then{если нечетный}
 begin
  n1:=n1+1;{добавим 1 столбец}
  if j=n1-1 then{если это был последний}
   for i:=1 to n do
   a[i,n1]:=1{заполним столбец 1}
  else{если не последний}
   begin
    for k:=n1 downto j+2 do{сдвинем все столбцы за ним на 1 вправо}
    for i:=1 to n do
    a[i,k]:=a[i,k-1];
    for i:=1 to n do{на свободное место вставим столбец из 1}
    a[i,j+1]:=1;
   end;
  j:=j-1{сместимся влево}
 end
else j:=j-1;{четные пропускаем}
{вставка строк}
n2:=n;{новое количество строк}
i:=n2;{начнем с конца чтобы не менялись индексы}
while i>=2 do
if i mod 2=0 then{если четная}
 begin
  n2:=n2+1;{добавим 1 строку}
  if i=n2-1 then{если это была последняя}
   for j:=1 to n1 do
   a[i,n2]:=0{заполним строку 0}
  else{если не последняя}
   begin
    for k:=n2 downto i+2 do{сдвинем все строки за ней на 1 вниз}
    for j:=1 to n1 do
    a[k,j]:=a[k-1,j];
    for j:=1 to n1 do{на свободное место вставим строку из 0}
    a[i+1,j]:=0;
   end;
  i:=i-1{сместимся вверх}
 end
else i:=i-1;{нечетные пропускаем}
writeln('Вставка столбцов и строк:');
for i:=1 to n2 do
 begin
  for j:=1 to n1 do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.