Найти сумму кратных 6 чисел в столбцах двумерного массива 10 на 10. Паскаль

Const n=10;

var a:array[1 ... n, 1 ... n] of integer;

s:array[1 ... n] of integer;

i, j:integer;

begin

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i, j]:=random (30) ;

write (a[i, j]:4)

end;

writeln

end;

writeln;

for i:=1 to n do

for j:=1 to n do

if a[i, j] mod 6 = 0 then

s[j]:=s[j]+a[i, j];

for i:=1 to n do

if s[i]>0 then writeln ('В столбце ', i:2,' сумма чисел, кратных 6, равна: ', s[i])

else writeln ('В столбце ', i:2,' нет чисел, кратных 6') ;

readln

end.