В твоем диапазоне проверяешь все числа на простое...
Код:
n: integer; // проверяемое число
d: integer; // делитель
r: integer; // остаток от деления n на d
begin
n := StrToInt(Edit1.text);
d := 2; // сначала будем делить на два
repeat
r := n mod d;
if r <> 0 {// n не разделилось нацело на d} then
d := d + 1;
until r = 0; // повторять пока не найдено число на n делится без остатка
label2.caption := Edit1.text;
if d = n then
label2.caption := label2.caption + ' - простое число.'
else
label2.caption := label2.caption + ' - обычное число.';
Далее загоняешь все простые числа в массив...
Потом по очереди начиная с первого элемента вычитаешь из него остальные...если разность введенное число, то добавляешь пару в новый двумерный массив...
Подумай, сделай наброски и приходи еще раз)))