Сумма элементов главной диагонали матрицы A[1..n,1..m]

program di;
uses crt;
const n=7;
var m:array[1..n,1..n]of integer;
      i,j,s:integer;
 
begin
 s:=0;
 randomize;
 clrscr;
 
 for i:=1 to n do
 for j:=1 to n do
 m[i,j]:=random(11)-10;
 
 writeln('Bazovaya matrica:');
 for i:=1 to n do
 begin
  for j:=1 to n do write(m[i,j]:2,' ');
  writeln;
 end;
 
 for i:=1 to n do s:=s+m[i,i];
 
 for i:=1 to n do if m[i,i]>s then write(m[i],' ');
 readln;
end.

program X3;
var
a:array [1..50,1..50] of integer;
k,j,i,n,l,summ,koll:integer;
begin
 
write('BBeDuTe pa3Mep maccuBa: ');
readln(n);
for i:=1 to n do begin
for j:=1 to n do
begin
 write('BbeDute a[' ,i,',',j, ']:');
 readln(a[i,j]);
end;end;
writeln('ucxoDHa9 MaTpuLLa');
for i:=1 to n do begin
for j:=1 to n do begin
write(a[i,j],'  ');end;
writeln;end;{тут пользователь заполняет массив}
 
 
for k:=1 to n do begin
summ:=a[k,k]+summ; end;
writeln('Cymma =',summ);
for i:=1 to n do begin
for j:=1 to n do begin
if a[i,j]> summ then
koll:=koll+1;end;end;
writeln('kolu4ecTBo = ',koll);{тут отбираюся элементы массива которые больше суммы гл. диаг.}
end.