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

[Саня]

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

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

[volvo]

Тогда держи:

Код

type
 numset = set of byte;
const
 n = 15;
 arr: array[1 .. n] of byte =
   (23, 53, 71, 96, 34, 56, 29, 43, 56, 32, 68, 50, 49, 24, 67);

var
 x: array[1 .. n] of integer;
 nums: array[1 .. n] of numset;
 i: integer;

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

   writeln( 'набор #', 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( ' - нет пары' );
   writeln;
 end;

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

 writeln( 'любые из этих чисел:' );
 for i := 1 to n do
   writeset(i);

end.

Набирал без компилятора, так что могут быть ошибки ... Проверь ;)