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

const
  n=7;
var
  a: array[1..n,1..n] of integer;
  b: array[1..n] of integer;
  i,j,imax: integer;
begin
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  for j:=1 to n do
  begin
    imax:=1;
    for i:=2 to n do
      if a[i,j]>a[imax,j] then imax:=i;
    b[j]:=a[imax,j];
  end;
  writeln('Âåêòîð ìàêñèìóìîâ â ñòîëáöàõ:');
  for i:=1 to n do write(b[i]:4);
  writeln;
  writeln('Ïðåîáðàçîâàííûé âåêòîð:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if i=j then a[i,j]:=b[i];
      write(a[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.

const
  n=7;
var
  a: array[1..n,1..n] of integer;
  b: array[1..n] of integer;
  i,j,imax: integer; // imax - индекс (номер) максимального в столбце
begin
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(100)+1; // исправлена неточность - так будет выбираться случайное от 1 до 100
      write(a[i,j]:4);
    end;
    writeln;
  end;
  for j:=1 to n do
  begin
    imax:=1; // примем за максимальный первый элмемент столбца
    for i:=2 to n do // проходим со второго элемента столбца до последнего
      if a[i,j]>a[imax,j] then imax:=i; // если очередной элемент больше, то запоминаем его номер
    b[j]:=a[imax,j]; // в очередной элемент вектора записываем значение этого элемента
  end;
  writeln('Вектор максимумов в столбцах:'); // выводим вектор на экран
  for i:=1 to n do write(b[i]:4);
  writeln;
  writeln('Преобразованная матрица:'); // исправлена неточность - не вектор - матрица
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if i=j then a[i,j]:=b[i]; //если номер строки = номеру столбца (т.е. главная диагональ) меняем его значение на значение вектора
      write(a[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.