Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр - Pascal

Формулировка задачи:

Всем доброго времени суток. Нужна помощь в написании кода (как сам ни старался, но осознал лишь, что реальный "чайник" в этом). Дано четырехзначное число n. Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр. Например, из числа 1509 должно получиться 19. Через оператор цикла for…to…do… P.S. именно при помощи этих операторов (примеры с другими операторами видел). Буду весьма признателен!

Решение задачи: «Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр»

Листинг программы

var n, k, t, i: integer;
begin
  readln(n);
  k := 0;
  for i := 1 to 4 do
    begin
      t := n div 1000;
      n := n * 10 mod 10000;
      if not (t in [0, 5]) then k := k * 10 + t
    end;
  write(k);
  readln
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal. Он предназначен для решения задач, связанных с обработкой чисел и данных. В первой строке кода переменной n присваивается значение, которое считывается из стандартного ввода. Затем переменной k присваивается значение 0. Далее идет цикл for, который выполняется 4 раза. Внутри цикла переменная t вычисляется как частное от деления n на 1000. Переменная n затем пересчитывается как остаток от деления на 10000. Если результат деления t не равен 0 или 5, то к значению переменной k прибавляется значение t. После завершения цикла, значение переменной k выводится на экран с помощью функции write(). Затем с помощью функции readln() считывается следующий ввод пользователя. Таким образом, данный код позволяет выбросить из числа n цифры 0 и 5, оставив прежним порядок остальных цифр.