В матрице 8х8 из вещественных чисел в пределах от -20 до 20 найти наибольший элемент главной диагонали и определить его индексы

const
  W=4; n=8;
var
  a: array [1..n,1..n] of integer;
  i, j, mi: integer;
begin
  Randomize;
  WriteLn('A=');
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=-20+Random(41); Write(a[i,j]:W);
    end; WriteLn;
  end;
  WriteLn('Главная диагональ:');
  mi:=1;
  for i:=1 to n do begin
    Write(a[i,i]:W);
    if a[i,i]>a[mi,mi] then mi:=i;
  end; WriteLn;
  WriteLn('Максимум на главной диагонали: a[',mi,',',mi,']=',a[mi,mi]);
end.

const
  n = 8;
 
var
  x: array [1..n, 1..n] of real;
  i, j, imax: integer;
  max: real;
 
begin
  max := -MAXINT - 1;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      x[i, j] := 40 * Random - 20;
      if i = j then
        if x[i, j] > max then
        begin
          max := x[i, j];
          imax := i;
        end;
      Write(x[i, j]:7:2);
    end;
    Writeln
  end;
  Writeln('Наибольший элемент = ', max:0:2, ' [', imax, ';', imax, ']');
  Writeln('Главная диагональ:');
  for i := 1 to n do
    Write(x[i, i]:7:2);
  Writeln;
  Writeln('Строка, на которой находится наиб. эл-т диагонали:');
  for i := 1 to n do
    Write(x[imax, i]:7:2);
  Writeln;
  Writeln('Столбец, на котором находится наиб. эл-т диагонали:');
  for i := 1 to n do
    Writeln(x[i, imax]:7:2);
  Readln
end.