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

[Саня]

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

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

[Саня]

Я тут немного доработал прогу под себя, проверьте: И есть еще пара вопросов..

Код

type
numset = set of byte;

const
MaxN=100;

var
x: array[1 .. maxN] of integer;
arr: array[1 .. maxN] of byte;
nums: array[1 .. maxN] of numset;
i,n,m: integer;

procedure writeset(i: integer);
var x, count: byte;
begin
  if nums[i] = [] then exit;

  writeln( 'nabor #', i );
  count := 0;

  for x := 10 to 99 do
    if x in nums[i] then
      begin
        write(x:4); inc(count)
      end;

  if count < 2 then
    write( ' - net par' );
  writeln;
end;

begin

repeat  
 writeln('Vvedite kolichestvo elementov');
readln(n)
until n<=MaxN;
For m:=1 to n do
begin
write('a[',m,']= ');
readln(arr[m])
end;

for i := 1 to n do
  begin
    x[i] := arr[i] mod 11;
    nums[ x[i] ] := nums[ x[i] ] + [ arr[i] ];
  end;

writeln( 'Lubie is chisel:' );
for i := 1 to n do
  writeset(i);
  readln;
end.

А как сделать, что бы допустим, при вводе чисел проверялось, являються ли они двузначными? И чтобы в ответе выдовал только одну пару чисел и делал запрос на вывод следующей?