На интервале (1000 .. 9999) найти все простые числа, каждое из которых обладает тем свойством, что сумма первой и второй цифр записи этого числа равна сумме третьей и четвёртой цифр — Pascal(Паскаль)

Uses
  crt;

var
  i: integer;

function prost(n: integer): boolean;
Var
  j: integer;
  t: boolean;
begin
  t := true;
  for j := 2 to round(sqrt(n)) do
    if n mod j = 0 then
      t := false;
  prost := t;
end;

begin
  ClrScr;
  for i := 1420 to 9470 do
    if prost(i) and ((i div 1000) + (i mod 1000 div 100) = ((i mod 100) div 10)
      + (i mod 10)) then
      write(i:5);
  readln;

end.