Cho tệp dữ liệu B.INP gồm 1 dòng chứa xâu ký tự a,tạo tệp B.OUT gồm 2 dòng: + Dòng 1 chứa xâu b được tạo từ xâu a bỏ các dấu cách. + Dòng 2 chứa xâu c được tạo từ xâu a chỉ dùng các ký tự số.

Program Nhap_Xuat_File;
Uses crt;
var i,m:integer;
a,b,c:string;
Procedure Nhap;
var f:text;
begin
     Assign(f,'B.INP');
     Reset(f);
     Readln(f,a);
     Close(f);
end;
Procedure Xuat;
var f:text;
begin
     Assign(f,'B.OUT');
     Rewrite(f);
     Writeln(f,b);
     Writeln(f,c);
     Close(f);
end;
Procedure Xoa_Cach(m:integer);
begin
     for i:=1 to m do
     if(a[i] <> ' ') then
              b:=b+a[i];
end;
Procedure Ky_Tu_So(m:integer);
begin
     for i:=1 to m do
     if(a[i] in ['0'..'9']) then
             c:=c+a[i];
end;

 begin
     Nhap;
     m:=Length(a);
     Xoa_Cach(m);
     Ky_Tu_So(m);
     Xuat;
end .