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

[Саня]

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

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

[volvo]

1.

если число не верное, выводилось об эом сообщение, и предложение его исправить

Код

var
 good: boolean;
...
repeat
  write('a[',m,']= ');
  readln(arr[m]);
  good := arr[m] in [10 .. 99];
  if not good then
    writeln('Chisla dolzhny byt dvyznach. Eshe raz...');
until good;

2.

Нужно что бы выводились все возможные переборы по 2 числа

Для этого придется переделывать программу полностью...