Паскаль, подпрограммы
 

В коде есть ошибка, помогите пожалуйста найти её и исправить. Задание такое: 1.Создать функцию, определяющую в квадратном целочисленном массиве matrixnn сумму элементов, находящихся выше и ниже главной и побочной диагоналей (“песочные часы”). Элементы диагоналей в сумму не включать.
3. Код программы:

Program Variant_8;
uses crt;
type mas=array[1..20, 1..20] of integer;

var n, i, j : integer;
a:mas;

function sum(a:mas): integer;
var s: integer;
begin
s := 0;
for i := 1 to n do
for j := 1 to n do
if (i <> j) and (j <> n - i + 1) then
s := s + a[i, j];
sum := s;
end;

begin
write('n=');
readln(n);
writeln(‘Enter ',n*n,' of elements of a matrix:');
for i := 1 to n do
for j := 1 to n do
begin
write('a[',i,',',j,']=');
read(a[i,j]);
end;
writeLn('Initial matrix’);
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeLn;
end;

writeln(' The sum ', sum(a));
end.

Отладил:

Спасибо большое Владимир)