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

Формулировка задачи:

Дана матрица вещественых чисел P(7,7). Вычислить сумму элементов главной диагонали и симметричной ей.

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.

Решение по непонятным мне причинам выдаёт неправильный ответ. Прошу помочь найти и исправить ошибку.

Решение задачи: «Матрицы. Найти сумму элементов главной и побочной диагонали.»

Листинг программы

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

Объяснение кода листинга программы

[1] Создается матрица случайных чисел размером 7х7. [2] Выводится на экран главная диагональ матрицы. [3] Инициализируются переменные s1 и s2, которые будут хранить суммы элементов диагоналей. [4] Происходит обход матрицы и суммируются элементы главной и побочной диагоналей. [5] Выводятся на экран суммы элементов главной и побочной диагоналей. [6] Программа ожидает ввода пользователя для завершения работы.