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

uses
  crt;
const
  str=7;{êîëè÷åñòâî ñòðîê}
  col=7;{êîëè÷åñòâî ñòîëáöîâ}
var
  a:array [1..str,1..col] of integer;
  i,j,min:integer;
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì ìàòðèöó}
  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;
  {íàõîäèì ìèíèìóì êàæäîé è ïðîèçâîäèì çàìåíó ñ ãëàâíîé äèàãîíàëüþ ñòðîêè}
  writeln('Âåêòîð ìèíèìàëüíûõ çíà÷åíèé:');
  write('[ ');
  for i:=1 to str do
  begin
    min:=a[i,1];
    for j:=2 to col do
      if a[i,j]<min then
        min:=a[i,j];
    a[i,i]:=min;
    write(min,' ');
  end;
  writeln(']');
  {âûâîäèì ìàòðèöó}
  writeln('Ïîëó÷åííàÿ ìàòðèöà:');
  for i:=1 to str do
  begin
    for j:=1 to col do
    begin
      if i=j then
        textcolor(4)
      else
        textcolor(0);
      write(a[i,j]:2,' ');
    end;
    writeln
  end;
end.

const
  N = 5;
  M = 5;
var
  a:array [1..N, 1..M] of integer;
  i,j,min: integer;
begin
  Randomize;
  WriteLn('Èñõîäíàÿ ìàòðèöà:');
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      a[i, j] := Random(8)-4;
      if j = 1 then
        min := a[i, j]
      else
        if a[i, j] < min then
          min := a[i, j];
      Write(a[i,j]:3, ' ')
    end;
    a[i, i] := min;
    WriteLn;
  end;
  Write('Âåêòîð ìèíèìàëüíûõ çíà÷åíèé:', #10, '[');
  for i := 1 to N do
    Write(a[i, i], ' ');
  WriteLn(']', #10, 'Ïîëó÷åííàÿ ìàòðèöà:');
  for i := 1 to N do
  begin
    for j := 1 to M do
      Write(a[i,j]:3, ' ');
    WriteLn;
  end;
  ReadLn;
end.