Выбор из двузначных чисел, Задача Опции

[Саня]

Такая задача: "Выбор из двузначных чисел". Даны n (n>=12) различных двузначных чисел. Написать программу выбора из них двух чисел так, чтобы их разность давала двузначное число, записываемое двумя одинаковыми числами.

У меня ни как не получаеться Может у кого нибудь получится....

[Саня]

У меня возникло еще пара вопросов (надеюсь я не надоел :D ) :
проверку чисел на двузначность я сделал так

Код

write('a[',m,']= ');
 readln(arr[m]);
 for t:=1 to 3 do begin
   if ((arr[m]<10)) or ((arr[m]>99)) then begin
     writeln('Chisla dolzhny byt dvyznach');
     write('Vvedite zanovo: a[',m,']=');
     readln(arr[m]);
     dec(t);
   end;

Но она 100% работает только с однозначными числами, а с трехзначными - через раз?

И еще, ответ выходит в таком виде:
Lubie is chisel:
nabor #1
12 - net par
press enter to print the next set
press enter to print the next set

nabor #3
14 36
press enter to print the next set
nabor #4
37 48 92
press enter to print the next set ...
Нельзя ли сделать так, что бы в ответ выводились только по 2 цифры, и не писалось в противном случае, что нет пар.
Заранее благодарен!