Перечислить все пары 'соседних' простых чисел

const zn:string[3]='012';
function DecToTry(n:integer):string;
var s:string;
begin
s:='';
while n>0 do
 begin
  s:=zn[n mod 3+1]+s;
  n:=n div 3;
 end;
DecToTry:=s;
end;
 
function Prost(a:integer):boolean;
var i:integer;
    f:boolean;
begin
if a<2 then f:=false
else
 begin
  f:=true;
  i:=2;
  while (i*i<=a) and f do
  if a mod i=0 then f:=false
  else i:=i+1;
 end;
 Prost:=f;
end;
 
function Revers(a,b:string):boolean;
var i,n:integer;
    f:boolean;
begin
if length(a)<>length(b) then f:=false
else
 begin
  n:=length(a);
  f:=true;
  i:=1;
  while (i<=n) and f do
  if a[i]<>b[n-i+1] then f:=false
  else i:=i+1;
 end;
Revers:=f;
end;
var n,i,k,a,b,c:integer;
    s1,s2:string;
begin
repeat
write('Введите натуральное число больше 2 n=');
read(n);
until n >2;
i:=3;
a:=2;
k:=0;
while i<n do
if Prost(i) then
 begin
  c:=a;
  b:=i;
  s1:=DecToTry(c);
  s2:=DecToTry(b);
  if Revers(s1,s2) then
   begin
    k:=1;
    writeln(a,' ',i,' ',s1,' ',s2);
   end;
  a:=i;
  i:=i+1;
 end
else i:=i+1;
if k=0 then writeln('Пар по условию нет');
writeln(DecToTry(109));
writeln(DecToTry(5));
end.