ПРОГРАММА НА 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.