Вывести главную диагональ двумерного массива 5 на 5

Program Ex_1;
Uses crt;
Const
n = 5;
m = 5; {n-строка,m-столбец}
Var A: array[1..n,1..m] of real;
i,j: integer;
Begin
 for i:=1 to n do
  for j:=1 to m do
   Read(A[i,j]);
    ClrScr;
     Writeln('Главная диагональ массива А:');
     
     {for i:=1 to n do
  begin
   for j:=1 to m do
    Write(A[i,j]:4:2,' ');
   Writeln;
  end;
 Readln;} {вот тут не знаю что нужно прописать, помогите, пожалуйста}
     
     
END.

Program Ex_1;
Uses crt;
Const
n = 5;
m = 5; {n-ñòðîêà,m-ñòîëáåö}
Var A: array[1..n,1..m] of real;
i,j: integer;
Begin
 for i:=1 to n do
  for j:=1 to m do
   Read(A[i,j]);
    ClrScr;
     Writeln('Ãëàâíàÿ äèàãîíàëü ìàññèâà À:');
     
     for i:=j to n do
  begin
   for j:=i to m do
    Write(A[1,1]:5:2 ,' ');
    Write(A[2,2]:5:2 ,' ');
    Write(A[3,3]:5:2 ,' ');
    Write(A[4,4]:5:2 ,' ');
    Write(A[5,5]:5:2 ,' ');
   Writeln;
  end;
 Readln;
END.

Const n = 5; m = 5; {n-строка, m-столбец}
Var A: array [1..n, 1..m] of real;
    i, j: integer;
Begin
  for i := 1 to n do for j := 1 to m do
    begin
      Write('A[', i, ', ', j, '] = ');
      ReadLn(A[i,j])
    end;
  WriteLn('Исходный массив:');
  for i := 1 to n do
    begin
      for j := 1 to m do Write(A[i,j]:10:2);
      WriteLn
    end;
  Writeln('Главная диагональ массива А:');
  for i :=1 to n do Write(A[i, i]:10:2);
  WriteLn;
  ReadLn;
END.