Вычислить суммы элементов главной диагонали квадратной матрицы

program sum_dia; const r=10; var a:array[1..r, 1..r] of shortint; n,i,j:byte; s:shortint; begin randomize; n:= random(8) + 3; writeln('Заданная матрица, порядкa ',n,':'); for i:=1 to n do begin for j:=1 to n do begin a[ i, j ]:=random(21)-10; write(a[ i, j ]:4); end; writeln end; s := 0; for i:= 1 to n do s:=s + a[ i, i ]; writeln('Сумма элементов главной диагонали: ',s); end.

var   n, i, j, summ:integer;   a:array[1..100, 1..100] of integer; begin   write('n = '); readln(n);   writeln('Исходный массив: ');   for i := 1 to n do   begin     for j := 1 to n do     begin       a[i, j] := random(21);       write(a[i, j]:4);     end;     writeln;   end;   summ := 0;   for i := 1 to n do     summ := summ + a[i,i];   writeln('Сумма элементов стоящих на главной диагонали равна ', summ); end.