Определить все пары "близнецов" из заданного интервала натуральных чисел

uses crt;
function prost(x:integer):boolean;
var  y:integer;
     f:boolean;
begin
x:=abs(x);
if x<2 then f:=false{0,1 не простое}
else if x=2 then f:=true{2 простое}
else if x mod 2=0 then f:=false{четные больше 2 не простые}
else
 begin
  f:=true;
  y:=3;
  while(y*y<=x)and f do
  if x mod y=0 then f:=false
  else inc(y,2);
 end;
prost:=f
end;
var a,b,i,k:integer;
begin
clrscr;
repeat
writeln('Введите интервал натуральных чисел более 2');
readln(a,b);
until(a>0)and(b>a+2);
writeln('Пары близнецов');
k:=0;
for i:=a to b-2 do
if Prost(i) and Prost(i+2) then
 begin
  k:=k+1;
  writeln(i,'  ',i+2);
  if k mod 22=0 then {если чисел много, не войдут на экран}
   begin             {после 22 задержка}
    write('Нажмите Enter');
    readln;
   end;
 end;
if k=0 then write('Таких пар нет!');
readln
end.

uses crt;
function prost(x:integer):boolean;
var  y:integer;
     f:boolean;
begin
x:=abs(x);
if x<2 then f:=false{0,1 не простое}
else if x=2 then f:=true{2 простое}
else if x mod 2=0 then f:=false{четные больше 2 не простые}
else
 begin
  f:=true;
  y:=3;
  while(y*y<=x)and f do
  if x mod y=0 then f:=false
  else inc(y,2);
 end;
prost:=f
end;
var a,b,i,k,n:integer;
    m:array[1..1000] of longint;
begin
clrscr;
repeat
writeln('Введите интервал натуральных чисел более 2');
readln(a,b);
until(a>0)and(b>a+2);
n:=0;
for i:=a to b-2 do
if Prost(i) and Prost(i+2) then
 begin
  n:=n+2;
  m[n-1]:=i;
  m[n]:=i+2;
 end;
if n=0 then write('Пар близнецов нет!')
else
 begin
  writeln('Пары близнецов');
  k:=0;
  for i:=1 to n div 2 do
   begin
    writeln(m[2*i-1],'  ',m[2*i]);
    k:=k+2;
    if k mod 22=0 then {если чисел много, не войдут на экран}
     begin             {после 22 задержка}
      write('Нажмите Enter');
      readln;
     end;
   end;
 end;
readln
end.