Найти все трехзначные числа-палиндромы. с использованием repeat (обязательно)

Var i:integer;
begin
i :=100;
repeat
if (i mod 10 = i div 100) then
print(i);
i:=i+1;
until (i>999);
end.

Решение, с которого не придется перебирать 800 чисел подряд:
var
i, j : Integer;
begin
i := 1;
repeat
j := 0;
repeat
writeln(i, j, i);
j := j + 1;
until j = 9;
i := i + 1
until i = 9
end.