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

[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.

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