Программа для PascalABC Помогите пожалуйста!

var i, n, x, k, z: integer;
begin
k:=0;
n:=10;
for i:=1 to n do
begin
readln (x);
z:=0;
if not odd (x) then
while x > 0 do
begin
if x mod 10 = 6 then inc(z);
x:= x div 10;
end;
if z >0 then inc (k);
end;
writeln ('ответ = ', k);
end.

336 * 1546 * 1123 1428 845 1473 1370 1093 1119 1382
naideno : 2
692 * 1621 642 * 1935 1400 1623 588 769 1567 1858
naideno : 2
1254 317 726 * 1710 1268 * 792 187 1148 217 935
naideno : 2
758 1594 692 * 406 * 861 1563 444 714 1730 1860 *
naideno : 3
884 1099 1798 422 1772 87 367 1054 1598 1780
ne naideno
911 1193 260 * 1245 199 414 132 1721 939 1927
naideno : 1
1094 333 1094 332 1345 49 1019 1867 1088 1908
ne naideno
391 900 1340 1791 1341 839 1440 280 249 26 *
naideno : 1
552 184 1501 1665 1866 * 1018 762 * 1029 1123 1933
naideno : 2
736 * 1277 355 892 486 * 893 1493 1910 225 1588
naideno : 2
225 677 19 753 1663 1176 * 173 1680 * 1055 876 *
naideno : 3
1175 1078 43 1151 279 293 1598 1324 1343 647
ne naideno
975 568 * 262 * 768 * 1827 547 1007 873 826 * 244
naideno : 4
1322 694 * 1510 195 1105 532 1020 1175 120 61
naideno : 1
1888 1441 949 982 698 * 28 1123 1437 790 1724
naideno : 1
527 98 1030 1123 337 1170 685 1831 1637 1135
ne naideno
1859 151 1639 1132 1876 * 1858 1480 856 * 1544 964 *
naideno : 3
1786 * 840 1327 951 1143 328 929 633 1261 1012
naideno : 1
1020 1785 1824 1404 1016 * 1155 277 1249 756 * 692 *
naideno : 3
275 640 * 1015 1210 935 1678 * 1033 47 429 70
naideno : 2
792 1684 * 1066 * 1495 1924 1220 3 840 311 1683
naideno : 2
1791 1787 477 445 1094 291 610 * 1903 1387 1504
naideno : 1
623 1109 673 1721 702 1160 * 143 1028 365 152
naideno : 1
955 1311 1588 503 988 897 372 319 1828 1906 *
naideno : 1

264 подходит по условию, но не выделено?

program q211376197;
var
i, N, tmp, count: integer;

function has6(n : integer): boolean;
begin
if n <= 0 then has6 := false
else has6 := (n mod 10 = 6) or has6(n div 10);
end;

begin
read(N);
count := 0;
for i:=1 to N do begin
read(tmp);
if (tmp mod 2 = 0) and has6(tmp) then count := count + 1;
end;
writeln(count);
end.