Найти сумму элементов главной и побочной диагонали матрицы

program qwesadf;
uses crt;
var p:array[1..10,1..10] of real;i,n,j:integer;s1,s2:real;
begin
clrscr;
writeln('vvedite razmer matrici');
readln(n);
writeln('vvedite elementi matrici');
s1:=0;
s2:=0;
for i:=1 to n do
for j:=1 to n do
begin
s1:=s1+p[i,i];
s2:=s2+p[i,n+1-i];
readln(p[i,j]);
end;
writeln('summa elementov glavnoi diagonali     ',s1:2:2);
writeln('summa elementov diagonali simetrichnoi glavnoi    ',s2:2:2);
end.

program qwesadf;
uses crt;
const n=7;
var p:array[1..7,1..7] of real;
i,j:integer;
s1,s2:real;
begin
clrscr;
randomize;
writeln('Ishodnaja matrica:');
for i:=1 to n do
begin
for j:=1 to n do
begin
p[i,j]:=random(10)+random;
write(p[i,j]:6:2);
end;
writeln;
end;
s1:=0;
s2:=0;
for i:=1 to n do
begin
s1:=s1+p[i,i];
s2:=s2+p[i,n+1-i];
end;
writeln('summa elementov glavnoi diagonali ',s1:0:2);
writeln('summa elementov pobochnoj diagonali ',s2:0:2);
readln
end.