ПРОГРАММА НА PASCAL! Распечатать введенную строку, удалив из нее символы, не являющиеся буквами и цифрами, и ЗАМЕНИВ КАЖДУЮ ЦИФРУ НА "**"

Ну допустим
var
s, s1: string;
i: integer;
begin
readln(s);
//удаляем лишние символы
for i:=length(s) downto 1 do
  if not(s[i] in [0..9, a..z, A..Z]) then
    delete(s, i, 1);
//строим новую строку, заменяя цифры звездочками
for i:=1 to length(s) do
  if s[i] in [0..9] then
    s1:=s1+**
  else
    s1:=s1+s[i];
writeln(s1);
end.