I made function that returns true if it finds two same numbers out of nine.
SCAR Code:
function samenumbers(k1,k2,k3,k4,k5,k6,k7,k8,k9: integer): boolean;
begin
if
k1=k2 or k1=k3 or k1=k4 or k1=k5 or k1=k6 or k1=k7 or k1=k8 or k1=k9 or
k2=k3 or k2=k4 or k2=k5 or k2=k6 or k2=k7 or k2=k8 or k2=k9 or
k3=k4 or k3=k5 or k3=k6 or k3=k7 or k3=k8 or k3=k9 or
k4=k5 or k4=k6 or k4=k7 or k4=k8 or k4=k9 or k5=k6 or k5=k7 or k5=k8 or
k5=k9 or k6=k7 or k6=k8 or k6=k9 or k7=k8 or k7=k9 or k8=k9
then
result:=true
else
result:=false
end;
begin
end.
but somehow it doesnt work... i dont know why