ПАСКАЛЬ. Необходимо определить количество пар, для которых произведение элементов делится на 26 или на 33.

На вход программы поступает последовательность из N целых положительных чисел, все числа в последовательности различны. Рассматриваются все пары различных элементов последовательности (элементы пары не обязаны стоять в последовательности рядом, порядок элементов в паре не важен). Необходимо определить количество пар, для которых произведение элементов делится на 26 или на 33.
!!!Моя программа работает, но не для всех случаев. Подскажите пожалуйста! Как исправить?
var i, x, n, k2, k3, k11, k13, k26, k33, S: integer;
begin
readln(n);
for i:=1 to n do begin
readln(x);
if (x mod 33>0) and (x mod 26>0) then
begin
if (x mod 2 =0) and (x mod 13>0) then k2:=k2+1;
if (x mod 13 =0) and (x mod 2>0) then k13:=k13+1;
if (x mod 3 =0) and (x mod 11>0) then k3:=k3+1;
if (x mod 11 =0) and (x mod 3>0) then k11:=k11+1;
end;
if (x mod 26=0) then k26:=k26+1;
if (x mod 33=0) then k33:=k33+1;
end;
S:=k2*k13+k26*(n-k26-k33)+k26*(k26-1)div 2+k3*k11+k33*(n-k33-k26)+k33*(k33-1)div 2;
writeln(S);
end.