Процедуры и функции

procedure del(i: integer; var c, p: integer );// процедура делимости цифр на число
begin
  p := i;
  while i <> 0 do {разделения числа на цифры}
  begin
    c := i mod 10;
    if (c = 1) or (c = 0) then                          //  если 0 или 1
    begin
      i := i div 10;
      continue;
    end; 
    if (p mod c = 0) and (p < 10000) then 
    begin
      writeln(p, ' делится на одну из своих цифр');
      exit;
    end
    else
    begin
      writeln('Не делиться ни на одну из своих цифр(0 и 1 исключение)');
      i := i div 10;
    end;  
  end;
end;
 
var
  c, p, i: integer;
 
begin
  readln(i);
  del(i, c, p);
end.

function TryDivision(x: integer): boolean;
begin
  Result := true;
  while Result and (x <> 0) do
  begin
    var last := x mod 10;
    if (last <> 0) and (x mod last <> 0) then Result := false;
    x := x div 10;
  end;
end;
 
begin
  Writeln(TryDivision(126));
end.

function TryDivision(x: integer): boolean;
begin
  Result := true;
  while Result and (x <> 0) do
  begin
    var last := x mod 10;
    Result := (last < 2) or (x mod last = 0); // если 0 или 1 - то все нормально, проверять остаток не надо, иначе проверяем остаток
    x := x div 10;
  end;
end;

function del(x: integer): boolean;
begin
  var j:=x;
  Result := false;
  while (not result) and (x <> 0) do
  begin
    var d := x mod 10;
    if (d = 0) or (d = 1) then begin
      Result := false; break; end
      else 
    begin
      if (j mod d = 0) then Result := true; end;
    x := x div 10; 
  end;
end;
 
var
  n: integer;
 
begin
  read(n);
  Writeln(del(n));
end.