Найти и вывести все простые четырёхзначные числа паскаль, через вложенные циклы.

Var
  i, j: longint;
  b: boolean;
 begin
  b := true;
  for i := 1000 to 9999 do
  begin
    for j := 2 to i - 1 do
     begin
      if(i mod j = 0) then
       begin
        b := false;
        break;
      end;
    end;
     if(b = true) then writeln(i);
    b := true;
  end;
end.