Преобразовать заданную строку, оставив в ней только арабские цифры с сохранением порядка их следования — Pascal(Паскаль)

var
 s:string;
 i:integer;
begin
readln(s);
 for i:=length(s) downto 1 do
  if not (s[i] in ['0'..'9']) then
     delete(s,i,1);
writeln(s);
end.