В матрице A(8 ; 8 ) найти сумму элементов главной диагонали — Pascal(Паскаль)

const
    n=8;
    m=8;
var
    a:array[1..n,1..m] of integer;
    i,j:word;
    sum:integer;
begin
    randomize;
    sum:=0;
    for i:=1 to n do
        for j:=1 to m do
            begin
                a[i,j]:=random(10)+1;
                write(a[i,j]:3);
                if j=m then writeln;
            end;
    for i:=1 to n do
        sum:=sum+a[i,i];
    writeln('Summa->',sum);
    readln;
end.