В диапазоне от А до В найти все простые числа

program pascalabc
uses crt;
var NumberA, NumberB, Number : word;
    Flag:boolean;   CounterI,CounterJ:integer;
begin
clrscr;
repeat
writeln('Введи,A');
readln(NumberA);
writeln('Введи, B');
readln(NumberB);
 
 until (NumberA <= NumberB);
 Number := 0;
for CounterI := NumberA to NumberB do
 begin
  Flag := false;
  for CounterJ := 2 to trunc(sqrt(CounterI)) do
  if (CounterI mod CounterJ = 0) then
  begin
   Flag := true;
   break;write(Flag);
  end;
 
   if (Flag = false) then
  begin
 
   write(CounterI,' ');
   inc(Number);
  end;
 end;
 
if (Number = 0) then
 writeln('HeT Чиceл');
 
readln;
end.

uses crt;
var a,b,i,j,n:integer;
    f:boolean;
begin
repeat
writeln('Введите интервал натуральных чисел a,b:');
read(a,b);
until (a<b);
n:=0;
for i:=a to b do
 begin
  if i=1 then f:=false
  else
   begin
    f:=true;
    j:=2;
    while(j*j<=i)and f do
    if i mod j=0 then f:=false
    else j:=j+1;
   end;
  if f then
   begin
    n:=1;
    write(i,' ');
   end;
 end;
if n=0 then write('На интервале ',a,'..',b,' нет простых чисел')
end.