Заменить главную диагональ матрицы вектором наименьших значений в столбцах

const
  str = 7;{количество строк}
  col = 7;{количество столбцов}
 
var
  a: array [1..str, 1..col] of integer;
  b: array[1..str]of integer;
  i, j, min: integer;
 
begin
  {заполняем и выводит матрицу}
  writeln('Исходная матрица:');
  for i := 1 to str do
  begin
    for j := 1 to col do
    begin
      a[i, j] := random(8) - 4;
      write(a[i, j]:2, ' ')
    end;
    writeln
  end;
  {находим минимум каждой и производим замену главной диагонали строки}
  for i := 1 to str do
  begin
    min := a[i, 1];
    b[i] := 1;
    for j := 2 to col do
      if a[i, j] < min then
        min := a[i, j];
    a[i, i] := min;
  end;
  {Выводим матрицу}
  writeln('Полученная матрица:');
  for i := 1 to str do
  begin
    for j := 1 to col do
      write(a[i, j]:2, ' ');
    writeln
  end;
end.

a[i, j] := -4+random(8) ;

const m=7; n=5; W=3;
var
  a: array [1..m,1..n] of Integer;
  i, j, mn: Integer;
begin
  Randomize;
  for i:=1 to m do for j:=1 to n do a[i,j]:=-4+Random(9);
  WriteLn('A =');  for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:W); WriteLn; end;
  if m<n then j:=m else j:=n;
  for j:=1 to j do begin
    mn:=a[1,j];
    for i:=2 to m do if mn>a[i,j] then mn:=a[i,j];
    a[j,j]:=mn;
  end;
  WriteLn('A''='); for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:W); WriteLn; end;
end.

const n=7; W=3;
var
  a: array [1..n,1..n] of Integer;
  i, j, mn: Integer;
begin
  Randomize;
  for i:=1 to n do for j:=1 to n do a[i,j]:=-4+Random(9);
  WriteLn('A =');  for i:=1 to n do begin for j:=1 to n do Write(a[i,j]:W); WriteLn; end;
  for j:=1 to n do begin
    mn:=a[1,j]; for i:=2 to n do if mn>a[i,j] then mn:=a[i,j];
    a[j,j]:=mn;
  end;
  WriteLn('A''='); for i:=1 to n do begin for j:=1 to n do Write(a[i,j]:W); WriteLn; end;
end.