Составить программку на Паскале поиска и вывода всех обычных чисел от

Составить программу на Паскале поиска и вывода всех обычных чисел от 2 до 100.
Проверкой каждого числа из этого промежутка на простоту.
При этом НЕ использовать решето Эратосфена.
И НЕ это, но что-то схожее)):
for i:=1 to n do
begin
j:=2;
lim:=round(sqrt(i));
while (i mod j lt;gt; 0) and (j lt;= lim) do inc( j );
if (j gt; lim) then write( i,' ' );
end;