{Дана матрица размера M × N. Продублировать столбец матрицы,
 содержащий ее минимальный элемент.}


Uses crt;
const
max = 100;
var
N,M,i,j,min,indexMin:integer;
mas:array[1..max,1..max] of integer;
begin
      randomize;
      write('N:');
      readln(N);
      write('M:');
      readln(M);

      for i:=1 to N do
      begin
            for j:=1 to M do
            begin
                mas[i,j] := random(100);
                write(mas[i,j]:4);
            end;
            writeln;
      end;
      min := mas[1,1];
      for i:=1 to N do
      begin
            for j:=1 to M do
            begin
                if(mas[i,j] < min) then
                begin
                      min := mas[i,j];
                      indexMin := j;
                end;
            end;

      end;
      for i:=1 to N do
      begin
            for j:=M downto indexMin do
            begin
               mas[i,j+1] := mas[i,j];

            end;

      end;

      writeln;
      writeln;

      for i:=1 to N do
      begin
            for j:=1 to M+1 do
            begin

                write(mas[i,j]:4);
            end;
            writeln;
      end;


      readkey;
end.