Для заданной квадратной матрицы С вычислить сумму и число элементов матрицы, находящихся под главной диагональю. Исходную матрицу вывести в общепринятом виде. Результаты вывести в произвольной форме. проблема в том, что прога не запускается

const
n=4;
var
a:array[1..n,1..n]of integer;
i,j,sum:integer;
begin
{заполняем и выыводим массив}
writeln('Исходная матрица V:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(8)-4;
write(a[i,j]:2,' ')
end;
writeln
end;
sum:=0;
for i:=2 to n do
for j:=1 to i-1 do
sum:=sum+a[i,j];
writeln('Количество: ',(n-1)*n/2);
writeln('Сумма:',sum)
end.