Дано натуральное число. Из данного натурального числа удалить все цифры а. (а вводится с клавиатуры) в паскале пожалуйста

m := 1; r := 0; while (n > 0) do begin if (n div 10 a) then r := r + m * (n div 10); m := m * 10; end; n := n mod 10; end;