Написать программу определения, является ли 2 числа близнецами

function isp(N : Int64) : Boolean;
var D, Q, dD : Int64;
begin
  Result := False; if N <= 1 then Exit;
  if (N >= 5) and (((N - 1) mod 6 = 0) or ((N + 1) mod 6 = 0)) then
    begin
      D := 5; dD := 2; Q := Trunc(Sqrt(N));
      while D < Q do
        if N mod D = 0 then Exit
        else begin D += dD; dD := dD xor 6; end;
      Result := True;
    end
  else Result := (N = 2) or (N = 3);
end;
 
const r : array [boolean] of string = ('нет.', 'да.');
var a, b : Int64;
begin
  Write('Введите через пробел два числа: '); ReadLn(a, b);
  WriteLn('Эти числа являются близнецами = ',  r[(abs(a - b) = 2) and isp(a) and isp(b)]);
end.

begin
  var a:= Range(3,readinteger('Введите число, до которого искать: '),2).ToArray;
  var h_el: integer:=2;
  var pr_val:= h_el;
  var lm:= new integer[1](2);
  while a.length > 1 do
    begin
      a:= a.Where(x -> (x mod h_el) <> 0).ToArray;
      h_el:= a[0];
      SetLength(lm,lm.length+1);
      lm[lm.length-1]:= h_el;
      if pr_val+2 = h_el
        then
          Writeln('Найдены числа - близнецы: ', pr_val,' ', h_el);
      pr_val:= h_el;
    end;
  lm.println(' ');
end.

begin
  var IV:= new integer[2](ReadInteger('Введите первое число: '), ReadInteger('Введите второе число: '));
  if (Abs(IV[1]-IV[0]) = 2) and (Range(2,IV[0]-1).Where(x -> (IV[0] mod x) = 0).Count = 0) and (Range(2,IV[1]-1).Where(x -> (IV[1] mod x) = 0).Count = 0)
    then
      Writeln('Числа - близнецы')
    else
      Writeln('Числа - не близнецы');
end.