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

[Саня]

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

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

[volvo]

Саня

1. Зачем тебе нужно объявлять массив из 100 элементов, если использоваться будут, скажем, 10 из них... Не лучше ли выделить массив динамически?

2.

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

Код

For m:=1 to n do
 repeat
   write('a[',m,']= ');
   readln(arr[m])
 until arr[m] in [10 .. 99];

3.

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

Код

writeln( 'Lubie is chisel:' );
for i := 1 to n do
 begin
 writeset(i);
 writeln( 'press enter to print the next set' )
 readln;
 end;
end.