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

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.