Дан массив целых чисел. Найти сумму и кол-во всех элементов, кратных 3 и 5, определить есть ли в двумерном массиве число 5. Если таких чисел несколько найти их количество — Pascal(Паскаль)

kol:=0;
kol5:=0;
sum:=0;
for i:=1 to n do
 begin
   if  (a[i,j] mod 3=0)or(a[i,j] mod 5=0) then 
   begin
     sum:=sum+a[i,j];
     inc(kol);
   end;
  if (a[i,j]=5) then ink(kol5);
  end;
 
writeln('Summa= ',sum);
writeln('Kolichestvo kratnih 3 i 5 = ',kol);
writeln('Pyaterok = ',kol5);