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

[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.

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

[VadEr]

var i:byte;
{описываем процедуру}
procedure chislo(N:byte);
begin
   if (N mod 10)<>(N div 10) then write(N,' ');
end;

begin
  for i:=10 to 99 do
      chislo(i); {вызываем процедуру}
readln
end.

[Serge_Bliznykov]

думаю, что в задании требовалось написать функцию, которая возвращает 1 или 2-ю цифры двухзначного числа.
как то так:

function Get_Digit(N, WhatDigit : byte) : byte;
begin
   if WhatDigit = 1 then Get_Digit := N mod 10;
   if WhatDigit = 2 then Get_Digit := N div 10;
end;
var  i: integer;
begin
  for i := 10 to 99 do
    if Get_Digit(i,1) <> Get_Digit(i,2) then WriteLn(i);
end.