Некорректно выводит ответ

[merhaba1992]

Добрый Вечер!!! Помогите Пожалуйста разобраться с кодом:

function Sum(x: matrix): integer;
var summ,i,j: integer;
begin
summ:=0;
begin
for i:=1 to n do
begin
for j:=1 to n-i+1 do
summ:=summ+x[i,j];
end;
end;
end;

writeln('Сумма равна** ',s);

Не хочет выводить "нормальный" ответ. Выводит(например): -32697
Процедура формирования массива:

Procedure FormingTriangleMatrix(var x: matrix);
var i,j: integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
 x[i,j]:=random(10);
end;
end;

[Arigato]

Функция ничего не возвращает.
Если это Делфи, то в конце надо добавить Result := summ;
Если Паскаль, то Sum := summ;