Задача по паскалю

[dante92]

Вывести записи всех чисел 1АВ1,в которых разные пропущенные цифры обозначены А и В,если известно,что данные числа составные.Для организации циклов использовать оператор for. Плиз помогите завтра уже сдавать в универе надо!!!

[Chudo4258]

for i:=1001 to 1991 do
if (i mod 10 =1) and (i div 1000 =1) then
begin
 k:=0; 
 for j:=2 to i-1 do
  if (i mod j =0) then inc(k);
 if k<>0 then Writeln (i);
end;