Trong tệp DULIEU.IN chứa một xâu bất kì, viết chương trình xử lí xâu kết quả ghi lên tệp DULIEU.OUT gồm 2 dòng Dòng 1: Xâu S sau khi được loại bỏ tất cả các dấu cách Dòng 2: Gồm các kí tự là chữ số trong xâu S Giúp em câu này với ạ. Em cảm ơn

program bai_giai;
var f,g:text;
    S:string;
    i:byte;
begin
    Assign(f,'DULIEU.INP');  reset(f);
    Assign(g,'DULIEU.OUT');  rewrite(g);
    readln(f,s);
    while pos(#32,s)<>0 do delete(s,pos(#32,s),1);
    writeln(g,s);
    for i:=1 to length(s) do
        if s[i] in ['0'..'9'] then write(g,s[i]);
    close(f); close(g);
end.

const fi='DULIEU.IN';
   fo='DULIEU.OUT';
var f:text;
   s:string;
   i:word;
begin
   assign(f,fi);reset(f);
      readln(f,s);
   close(f);
   assign(f,fo);rewrite(f);
      while s[1]=' 'do delete(s,1,1);
      while s[length(s)]=' 'do delete(s,length(s),1);
      while pos(' ',s)<>0 do delete(s,pos(' ',s),1);
      writeln(f,s);
      for i:=1 to length(s)do
         if s[i]in['0'..'9']then write(f,s[i],' ');
   close(f);
end.