Модифицировать программу так, чтобы она осуществляла поиск подматрицы n,в которой сумма элементов главной диагонали наибольшая

writeln('Введите размер подматрицы:');readln(m);
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=trunc(random*50) ;
writeln('Сформированная матрица');
for i:= 1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
for i:=1 to m do
for j:=1 to m do
if i=j then s:=s+a[i,j];
for l:=1 to n-m+1 do
for k:=1 to n-m+1 do
begin
for i:=1 to m do
for j:=1 to m do
b[i,j]:=a[l+i-1,k+j-1];
s:=0;
for i:=1 to m do
for j:=1 to m do
if i=j then s:=s+b[i,j];
if s>max then
begin
end;
end;
writeln('Сумма элементов=',s);
end.