Правильно ли, что сумма элементов основной диагонали квадратного массива не превышает

Решение задачи:
Код написан в программе PascalABC.NET.
var i,j:byte;
a:array[1..300,1..300] of byte;
n,sum:integer;
begin
write(Введите размерное квадратной матрицы n = );
readln(n);
randomize;
sum:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(9);
write(a[i,j]:2);
if(i=j)then sum:=sum+a[i,j];
end;
writeln;
end;
writeln(Сумма элементов основной диагонали = , sum);
if sumlt;=100 then write(Ответ: да, правильно) else write(Ответ: нет, ошибочно);
end.