Дан двухмерный массив чисел. Составить программу, определяющею верно ли, что сумма элементов строки массива с известным номером оканчивается цифрой 0 — Pascal(Паскаль)

uses crt;
const n=5;
var a: array[1..n,1..n] of integer; sum: array[1..n] of integer; i,j: byte;
begin
randomize;
clrscr;
writeln('исходный массив: ');
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(10);
sum[i]:=sum[i]+a[i,j];
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],'  ');
if sum[i] mod 10 = 0 then
write('     верно')
else write('     неверно');
writeln;
end;
end.