Найти все трехзначные простые числа

var
  i, j, N, M: word;
  f: boolean;
  
begin
  N := 100; //минимальное трехзначное число
  M := 999; //максимальное трехзначное число
  for i := N to M do
  begin
    f := true; //сначала число i считается простым
    for j := 2 to round(sqrt(i)) do
     { Делим число i на все числа от 2 до целой части от корня 
     квадратного i; если число поделилось, то меняем индикатор 
     на false и выходим из внутреннего цикла: }
      if frac(i/j) = 0 then begin f := false; break end;
   { Если ни одно число не поделилось, то выводим его: }   
    if f = true then write(' ', i)
  end  
end.

var a,i:integer;
    f:boolean;
begin
a:=101;//проверим только нечетные числа
while a<=999 do
 begin
  f:=true;
  i:=3;//делимость на нечетные числа
  while f and (i*i<=a) do
  if a mod i=0 then f:=false
  else i:=i+2;
  if f then write(a:5);
  a:=a+2;
 end;
end.