Даны натуральные числа a, b (a ≤ b). Получить все простые числа p, удовлетворяющие неравенствам b ≥ p ≥ a

type
  tPrim = ^pPrim;
  pPrim = record n:Integer;x:tPrim;end;
 
function newPrim(n:Integer):tPrim;
var p:tPrim;
begin
  New(p);p^.n:=n;p^.x:=nil;Result:=p;
end;
  
procedure allPrims(a,b:Integer);
var n,q:Integer;p,l,t:tPrim;d:Boolean;
begin
  p:=newPrim(2);l:=p;
  n:=3;q:=Trunc(Sqrt(b));while n<=b do
  begin
    t:=p;d:=False;repeat d:=n mod t^.n=0;t:=t^.x;until d or(t=nil)or(t^.n>q);
    if not d then begin l^.x:=newPrim(n);l:=l^.x;end;
    inc(n,2);
  end;
  t:=p;while t<>nil do begin if t^.n>=a then Write(#32,t^.n);t:=t^.x;end;
end;
 
var a,b:integer;
begin
  Read(a,b);
  allPrims(a,b);
end.

  for p:=a to b do begin
    { проверяем p на простоту }
    { если p простое, выводим }
  end;

var 
  a,b,i, l, h: integer;
  j: boolean;
  p: array  of integer;
begin
  write('Ввeдите a b');
  try
    readln(a,b);
  except
    write('Неверные данные');
    exit;    
  end;
  if a>b
  then
    begin
    write('Неверные данные');
    exit;
    end;   
  i:=a;
  j:=true;
  h:=0;
  p:=  new integer[10];
  for i:=a to b do 
    begin
    j:=true; 
    for l:=2 to trunc(sqrt(i))
     do
       begin
       if (i mod l = 0) and (i<>l) then
       begin
         j:= false;
         break
       end;
       end;
   if (j= true) and (i<>1) then 
     begin
     
     p:=Arr(i);
     h:=h+1;
   end;
       
       end;    
write(p)  
end.

var a, b, i, j, k, p: Integer;
. . .
  for p:=a to b do
    if Odd(p) then begin
      j:=3; k:=Trunc(SqRt(p));
      while (j<=k) and (p mod j<>0) do Inc(j,2);
      if j>k then Write(' ',p);
    end;

for p:=a to b do
  if Odd(p) then

  p:=a or 1;
  while p<=b do begin
    j:=3; k:=Trunc(SqRt(p));
    while (j<=k) and (p mod j<>0) do Inc(j,2);
    if j>k then Write(' ',p);
    Inc(i,2);
  end;

  Write('a b (a>0, a<=b): '); ReadLn(a,b);

repeat
  Write('a b (a>0, a<=b): '); ReadLn(a,b);
  if (a>0) and (a<b) then Break;
  WriteLn('*** Ошибка: неверные данные');
until False;

var s: String;
. . .
  {a:=0; b:=0;}
  repeat
    Write('a b (a>0, a<=b): ');
    try
      ReadLn(a,b);
    except
      ReadLn(s);
    end;
    if (a>0) and (a<b) then Break;
    WriteLn('*** Ошибка: неверные данные');
  until False;