Помогите с паскалем!!!!!

[Igomax]

Получить все двузначные числа (натуральные) в которых нет одинаковых цифр. Использовать функцию или процедуру получения цифр некоторого числа N

Первую часть я сделал

uses crt;
var i:longint;
begin
clrscr;
for i:=10 to 99 do begin
if i mod 10<>i div to then write(i:6);
end.

А вот какую функцию нужно использовать я не могу понять

[Chudo4258]

function ii(k:longitn):boolean;
begin
 if k mod 10<>i div to then ii:=true
                              else ii:=false;
end;
uses crt;
var i:longint;
begin
clrscr;
for i:=10 to 99 do begin
if ii(i) then write(i:6);
end.