дан двух мерный массив, вывести на экран элементов главной диагонали.

uses crt;

type matr=array[1 ... 20,1 ... 20] of integer;

proc=procedure (m:matr; n:byte) ;

procedure Glav (m:matr; n:byte) ;

var i:byte;

begin

writeln ('Главная диагональ : ') ;

for i:=1 to n do

write (m[i, i]:3,' ') ;

writeln;

writeln;

end;

procedure Vyvod (m:matr; Gl:proc; n:byte) ;

begin

Gl (m, n) ;

end;

var a:matr;

n, i, j:byte;

begin

clrscr;

randomize;

repeat

write ('Размер матрицы до 20 n=') ;

readln (n) ;

until n in [1 ... 20];

writeln ('Исходная матрица:') ;

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i, j]:=random (40) + 10;

write (a[i, j]:3,' ') ;

end;

writeln;

end;

writeln;

Vyvod (a, Glav, n) ;

readln

end.