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

Program PascalGuru;

function simple(x: integer): boolean; { процедура проверки числа на "простоту" }
label 1;
var
  i: longint;
  result: boolean;
begin
  if (x = 1) or (x = 0) then
  begin
    result := false;
    goto 1;
  end;
  for i := 2 to x div 2 do
    if x mod i = 0 then
    begin
      result := false;
      goto 1;
    end;
  result := true;

1:
  simple := result;
end; { ***конец процедуры проверки числа на "простоту" }
{ ------------------------------------------------------------------------------- }

function svoistvo(ii: integer): boolean;
var
  s1, s2: integer;
begin
  s1 := 0;
  s2 := 0;
  s1 := s1 + (ii mod 10);
  ii := ii div 10;
  s1 := s1 + (ii mod 10);
  ii := ii div 10;
  s2 := s2 + (ii mod 10);
  ii := ii div 10;
  s2 := s2 + (ii mod 10);
  if s1 = s2 then
    svoistvo := true
  else
    svoistvo := false;
end;
{ ------------------------------------------------------------------------------- }

var
  i: integer;

begin

  for i := 1000 to 9999 do
    if simple(i) then
      if svoistvo(i) then
        writeln(i);

  readln;

end.