Найти максимальный элемент в главной диагонали матрицы

max:=a[1,1];   {максимальный элемент главной диагонали}
for i:=2 to n do
if a[i,i]>max then max:=a[i,i];
 
for i:=1 to n do    {средее значение матрицы}
for j:=1 to n do
sr:=sr+a[i,j];
sr:=sr/sqr(n);
writeln('максимальный элемент диагонали = ',max);
writeln('среднее значение матрицы = ',sr:5:2);

randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(19)-9;
write(a[i,j]:3);
end;
writeln;
end;

program primer;
uses crt;
const m=3;n=3;
var i,j:integer;
min,max:real;
A:ARRAY[1..M,1..N] of real;
begin
clrscr;
for i:=1 to M do
for j:=1 to N do
begin
write('A[',i,j,']=');
read(A[i,j]);
end;
for i:=1 to m do
begin
min:=A[i,1];
max:=A[i,1];
for j:=2 to n do
if A[i,j] < min then min:=A[i,j];
writeln('b[',i,']=',min:1:0);
if A[i,j] > max then max:=A[i,j];
writeln('c[',i,']=',max:1:0);
end;
end

uses crt;
const n=5;
var a: array[1..n,1..n] of integer; i,j: byte; 
     max: integer; sr: real;
begin
 randomize;
 clrscr;
 writeln('исходный массив');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(19)-9;
     write(a[i,j]:4);
    end;
   writeln;
  end;
 max:=a[1,1];   
 for i:=2 to n do
  if a[i,i]>max then max:=a[i,i];
 for i:=1 to n do    
  for j:=1 to n do
   sr:=sr+a[i,j];
 sr:=sr/sqr(n);
 writeln('максимальный элемент диагонали = ',max);
 writeln('среднее значение матрицы = ',sr:5:2);
end.

c:=1;
for i:=1 to m do
 c:=c*(n-m+i) div i
writeln(c)