Сумма элементов диагоналей матрицы Опции

[ducky]

подскажите пожалуйста..

условие - Найти сумму элементов диагоналей матрицы.

program V_9_14;
var p:array[1..9,1..9] of real;
    i,n,j:integer;
    s1,s2:real;

begin
 s1:=0;
 s2:=0;
 writeln ('vvedite razmer matrici');
 readln(n);
 writeln ('vvedite elementi matrici');

  for i:=1 to n do
   for j:=1 to n do
    readln(p[i,j]);

  for i:=1 to n do
   for j:=1 to n do

    begin
     if (i=j) then s1:=s1+p[i,j];
     if (i=j+1-10) then s2:=s2+p[i,j];
    end;

writeln ('summa elementov glavnoj diagonali', s1:2:2);
writeln ('summa elementov diagonali simetrichnoj glavnoj', s2:2:2);

readln;

end.

вышло вот такое, но почему-то при запуске программу циклит..

[Freedom]

program V_9_14;
var p:array[1..9,1..9] of real;
    i,n,j:integer;
    s1,s2:real;

begin
 s1:=0;
 s2:=0;
 writeln ('vvedite razmer matrici');
 readln(n);
 writeln ('vvedite elementi matrici');

  for i:=1 to n do
   for j:=1 to n do
    readln(p[i,j]);

  for i:=1 to n do s1:=s1+p[i,i];

  for i:=1 to n do s2:=s2+p[i,n-i+1];

writeln ('summa elementov glavnoj diagonali', s1:2:2);
writeln ('summa elementov diagonali simetrichnoj glavnoj', s2:2:2);

readln;

end.
 

вот так.
Не нужно делать двойной цикл когда находите сумму элементов главной диагонали, потому что все элементы главной диагонали являются p[i,i]мы элементами матрицы. Вот например матрица 3 на 3 , главная диагональ p[1,1] p[2,2] p[3,3], а побочная является p[i,n-i+1]