Среди четырёхзначных чисел найти простые числа, у каждого из которых сумма первых 2-х цифр равна сумме последних цифр

//функция определения простого числа
function isprost(n:integer):boolean;
var i:integer;
    f:boolean;
begin
if n=2 then f:=true //2 простое число
else if (n=1)or(n mod 2=0) then f:=false//1 и четные не простые
else//иначе проверяем все нечетные на делимость
 begin
  f:=true;
  i:=3;
  while (i*i<=n)and f do
  if n mod i=0 then f:=false else inc(i,2);
 end;
isprost:=f;
end;
//функция определяет равенство сумм первых и последих цифр
function isravn(n:integer):boolean;
begin
isravn:=n div 1000+n div 100 mod 10=n div 10 mod 10+n mod 10;
end;
var i:integer;
begin
for i:=1000 to 9999 do
if isprost(i)and isravn(i) then write(i,' ');
end.

var
  i, n, d: integer;
  p: boolean;
begin
  for n := 1000 to 9999 do
    if n div 1000 + n div 100 mod 10 = n div 10 mod 10 + n mod 10 then
      begin
        i := 5;
        d := 2;
        p := (n mod 2 <> 0) and (n mod 3 <> 0);
        while p and (i * i <= n) do
          begin
            p := n mod i <> 0;
            inc(i, d);
            d := d xor 6
          end;
        if p then write(n:5)
      end
end.

var
  i, n: integer;
begin
  for n := 1000 to 9999 do
    if odd(n) and (n div 1000 + n div 100 mod 10 = n div 10 mod 10 + n mod 10) then //если нечётное и сумма цифр подходит
      begin //то
        i := trunc(sqrt(n)) or 1; //делим до корня числа, для удобства формируем нечётное число, не меньшее корня
        while n mod i <> 0 do dec(i, 2); //проверяем все нечётные делители
        if i = 1 then write(n:5) //если разделилось только на 1, то число простое, печатаем
      end
end.

var
  i, n: integer;
begin
  for n := 1000 to 9999 do
    if n div 1000 + n div 100 mod 10 = n div 10 mod 10 + n mod 10 then
      begin
        i := 2;
        while n mod i <> 0 do inc(i);
        if i = n then write(n:5)
      end
end.