Помогите решить/разобраться с задачей., Задача-ребус Опции

[Casual]

Решить арифметический ребус КИОТИО=ТОКИО. Вместо каждой буквы необходимо поставить некоторую цифру, причём одинаковые буквы означают одинаковые цифры, а различные буквы-различные цифры.

[volvo]

Я ж говорил: не сумму считать надо, а произведение:

    mult := (100*k + 10*i + o) * (10*i + o);
    tokio := t*10000+o*1000+k*100+i*10+o;
    if mult = tokio then
      writeln(':', k,i,o,'*',i,o,'=', t,o,k,i,o);

[Casual]

Вот, что получилось в итоге:

Program Rebus;
uses crt;
var
k, i, o, t: 0..9;
dig : set of 0..9;
tokio: longint;
mult,g,w : longint;
begin
clrscr;
for k:=0 to 9 do begin
include(dig,k);
for i:=0 to 9 do
if not (i in dig) then begin
include(dig,i);
for o:=0 to 9 do
if not (o in dig) then begin
include(dig,o);
for t:=0 to 9 do
if not (t in dig) then begin
include(dig,t);
g:=100; w:=100;
mult:= (100*k + 10*i + o) * (10*i + o);
    tokio:= t*10000+o*1000+k*100+i*10+o;
    if mult = tokio then
      writeln(':', k,i,o,'*',i,o,'=', t,o,k,i,o);
exclude(dig,k);
end;
exclude(dig,i);
end;
exclude(dig,o);
end;
exclude(dig,t);
end;
readln;
end.

и она не работает!
Просто пустой черный экран.