Положительные простые цифры

var
  i, r: integer;
 
function Simple(x: integer): boolean;
var
  i: integer;
begin
  for i := 2 to x div 2 do
    if x mod i = 0 then
    begin
      result := false;
      exit
    end;
  result := true;
end;
 
function SimpleDigits(x: integer): boolean;
var
  i: integer;
  s: string;
begin
  s := IntToStr(x);
  for i := 1 to length(s) do
    if s[i] in ['4', '6', '8', '9'] then
    begin
      result := false;
      exit
    end;
  result := true;
end;
 
begin
  writeln('Введите число r:');
  readln(r);
  writeln('Простые числа, состоящие из простых цифр:');
  for i := 1 to r do
    if Simple(i) and SimpleDigits(i) then
      write(i, ' ');
  writeln
end.

function IsPrimeDigits(x: integer): boolean;
var
  i: integer;
  s: string;
begin
  result := false;
  s := IntToStr(x);
  for i := 1 to length(s) do
    if s[i] in ['0', '1', '4', '6', '8', '9'] then exit;
  result := true;
end;

function IsPrimeDigits(x: integer): boolean;
begin
  result := false;
  repeat
    if x mod 10 in [0..9]-[2,3,5,7] then exit;
  until x=0;
  result := true;
end;