Удалить из числа цифры 0 и 5

program Project1;
 
const
  //Значения разрядов, которые должны быть исключены из числа.
  D = [0, 5];
var
  Num, Res, Weight : Longint;
  Dig : 0..9;
  Sign : -1..1;
  S : String;
begin
  repeat
    Writeln('Задайте целое число:');
    Readln(Num);
 
    //Определяем знак числа.
    Sign := Num div Abs(Num);
    //Число без знака.
    Num := Abs(Num);
    //Результирующее число.
    Res := 0;
    //Вес старшего разряда результирующего числа.
    Weight := 1;
    repeat
      //Значение очередного младшего разряда исходного числа.
      Dig := Num mod 10;
      //Если разряд не равен 0 или 5.
      if not (Dig in D) then begin
        //Добавляем разряд в результирующее число в качестве старшего разряда.
        Res := Dig * Weight + Res;
        //Вес следующего старшего разряда в результирующем числе.
        Weight := Weight * 10;
      end;
      //Удаляем из исходно числа очередной старший разряд.
      Num := Num div 10;
    until Num = 0;
 
    //Учитываем знак.
    Res := Sign * Res;
 
    //Ответ.
    if Res = 0 then
      Writeln('Результат равен нулю. Ноль не может быть исключён из числа.')
    else
      Writeln('Результат: ', Res)
    ;
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.