Задан целочисленный массив NxМ. Вставить столбец из нулей перед столбцом, содержащим минимальный элемент матрицы.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var a:array of array of integer;
    n,m,i,j,mn,jmn:integer;
begin
randomize;
write('Kol. strok n=');
readln(n);
write('Kol. stolbcov m=');
readln(m);
Setlength(a,n,m+1);
writeln('Ishodnyj massiv:');
for i:=0 to n-1 do
 begin
  for j:=0 to m-1 do
   begin
    a[i,j]:=random(20)+1;
    write(a[i,j]:4);
   end;
  writeln;
 end;
mn:=a[0,0];
jmn:=0;
for i:=0 to n-1 do
for j:=0 to m-1 do
if a[i,j]<mn then
 begin
  mn:=a[i,j];
  jmn:=j;
 end;
writeln('Min. element=',mn,' v stolbce ',jmn+1);
m:=m+1; //добавим столбец
if jmn=m-2 then //если столбец с мин. был последним
for i:=0 to n-1 do
 begin
  a[i,m-1]:=a[i,m-2];
  a[i,m-2]:=0;
 end
else//иначе
 begin
  for j:=m-1 downto jmn+1 do
  for i:=0 to n-1 do
  a[i,j]:=a[i,j-1];
  for i:=0 to n-1 do
  a[i,jmn]:=0;
 end;
writeln('Vstavka stolbca:');
for i:=0 to n-1 do
 begin
  for j:=0 to m-1 do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.