Проверка существования «близнецов», т.е. простых чисел, разность между которыми равна 2

program z1;
var
  n,i:integer;
 
function prost(n:integer):boolean;
var p:boolean; i:integer;
begin
  p:=true;
  for i:=2 to (n div 2) do
  begin
    if n mod i=0 then p:=false;
  end;
  prost:=p;
end;
 
begin
  write('Введите n: ');
  readln(n);
  for i:=n to (2*n-2) do
  begin
    if prost(i) and prost(i+2) then
      writeln(i,' ',i+2);
  end;
end.

program z1;
uses crt;
function prost(n:integer):boolean;
var p:boolean; i:integer;
begin
  if n<2 then p:=false
  else
   begin
    p:=true;
    i:=2;
    while(i*i<=n) and p do
    if n mod i=0 then p:=false
    else i:=i+1;
   end;
prost:=p;
end;
var
  n,i,k:integer;
begin
  write('Введите n: ');
  readln(n);
  k:=0;
  writeln('Простые числа-близнецы:');
  for i:=1 to n-2 do  //интервал изменил, исправь
  if prost(i) and prost(i+2) then
   begin
    k:=1;
    writeln(i,' ',i+2);
   end;
if k=0 then write('Таких чисел нет');
end.