С множества чисел [1.n] выделить подмножество простых чисел p таких что p-2, p + 2 - сложные

function prime(n: integer): boolean;
var i: integer;
begin
  if n < 2
    then prime := false
    else begin
      prime := true;
      for i := 2 to trunc(sqrt(n)) do
        if n mod i = 0
          then begin
            prime := false;
            break
          end
    end
end;
 
var i, n: integer;
 
begin
  write('n = ');
  readln(n);
  i := 3;
  while i <= n do
    if prime(i) and prime(i + 2)
      then begin
        writeln(i);
        i := i + 2
      end
      else inc(i);
  readln
end

program chetnyj;
var i, j, s, h, l, n :integer ;
a: array [1..100,1..100]of integer ;
begin 
randomize ;
writeln ('vved rozmer');
readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(20)-10;
write(a[i,j]:6);
end;
writeln;
end;
for i:=1 to n do begin 
for j:=1 to n do begin 
if ((a[i,j])mod 2<>0) and  
 ((abs(a[i,j])div 1=1 ) or(abs(a[i,j])div 3=1) or  (abs(a[i,j])div 5=1) or (abs(a[i,j])div 7=1))
 and (a[i,j]<>9) and 
 (a[i,j]<>-9)  then writeln (a[i,j]:2) ;
end;
end;
end.

    if not prime(i - 2) and prime(i) and not prime(i + 2)