{Поменяйте местами последний и первый столбцы массива.
В матрице размером n на m (1<n, m<10) (ввод n,m и матрицы с клавиатуры) найти
минимальный элемент в каждой строке и заменить все элементы строки левее
минимального на 0. Вывести минимальный элемент для каждой строки, исходную и
получившуюся матрицы. Использовать подпрограммы.}
program z2;

type arr = array[1..10,1..10] of real;

procedure InputArray(var a:arr; var n:integer; var m:integer);
var i,j:integer;
begin
  Write('Введите N:');
  readln(n);
  Write('Введите M:');
  readln(m);
  writeln('Заполните матрицу:');
  for i:=1 to n do
    for j:=1 to m do
    begin
      write('a[',i,',',j,']=');
      readln(a[i,j]);
    end;
end;


procedure OutputArray(a:arr; var 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]:6:2,' ');
    writeln;
  end;
end;

procedure ProcessArray(a:arr; var n,m:integer);
var i,j,minindx:integer;
begin
  for i:=1 to n do
  begin
    minindx := 1;
    for j:=2 to m do
      if (a[i,minindx]>a[i,j]) then
          minindx := j;
    Writeln('Минимальный элемента для ',i,'-й строки:',a[i,minindx]);
    for j:=1 to minindx-1 do
       a[i,j]:=0;
  end;
end;

procedure SwapColumns(var a:arr;n,m:Integer);
var i:integer;
temp:real;
begin
  for i:=1 to n do
  begin
    temp := a[i,1];
    a[i,1] := a[i,m];
    a[i,m] := temp;
  end;
end;

var
  a:arr;

  n,m:integer;
begin

 InputArray(a,n,m);

 Writeln('Введенная матрица:');
 OutputArray(a,n,m);

 SwapColumns(a,n,m);
 Writeln('Матрица с поменянными местами первым и последним столбцом.');
 OutputArray(a,n,m);

 ProcessArray(a,n,m);

  Writeln('Матрица после обработки:');
  OutputArray(a,n,m);
end.