program lab_Delphi_1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
  mas = array of real;
  matr = array of mas;


var
  cntStr, cntStolb: integer;
  R: matr;
  MT: array of integer;
procedure inputR(var R: matr; var cntStr, cntStolb: integer);
var
  i, j: integer;
begin
  SetLength(R, cntStr, cntStolb);
  for i := 1 to cntStr do
    for j := 1 to cntStolb do
    begin
      writeln('Введите ', j, ' элемент ', i,' строки: ');
      readln(R[i, j]);
    end
end;
procedure printR(var R: matr; var cntStr, cntStolb: integer);
var
  i, j: integer;
begin
  writeln('Матрица: ');
    for i := 0 to cntStr - 1 do
    begin
      for j := 0 to cntStolb - 1 do
        write(R[i, j]:12:4);
      writeln;
    end;
end;
procedure deleteInR(var R: matr; var cntStolb, cntStr: integer);
  var
    i, j, num: integer;
    mn: real;
begin
  mn := R[1, 1];
  num := 1;
  for i := 1 to cntStr do
    for j := 1 to cntStolb do
      if R[i, j] < mn then
        begin
          mn := R[i, j];
          num := j;
        end;
      writeln('Минимальный элемент = ', mn, 'в столбце', num);
      if num = cntStolb then
        cntStolb := cntStolb - 1
      else
        begin
          for j := num to cntStolb - 1 do
            for i := 1 to cntStr do
              R[i, j] := R[i, j + 1];
              cntStolb := cntStolb - 1;
        end;
      writeln('Удален столбец', num);
      for i := 1 to cntStr do
        begin
          for j := 1 to cntStolb do
            write(R[i, j]:12:4);
          writeln;
        end;
end;
begin
  writeln('Введите кол-во строк матрицы R: ');
  read(cntStr);
  writeln('Введите кол-во строк матрицы R: ');
  read(cntStolb);
  inputR(R, cntStr, cntStolb);
  writeln;
  printR(R, cntStr, cntStolb);
  writeln;
  deleteInR(R, cntStr, cntStolb);
  readln;
  readln;
end.