Nhập xâu họ và tên. Viết chương trình để xóa các kí tự trắng dư

[tuatolala]

nhập xâu họ và tên. Viết chương trình để xóa các kí tự trắng dư.

 

[dienvi2010]

nhập xâu họ và tên. Viết chương trình để xóa các kí tự trắng dư.

Có sử dụng chương trình con:

Type xau=string[100];
Var str:xau;
Procedure SpaceTrim(var s:xau);
Var i:byte;
Begin
     s:=' '+s+' '; {Xu ly TH khoang trang o dau, cuoi chuoi}
     i:=pos('  ',s); {2 khoang trang}
     While i<>0 do
     Begin
           delete(s,i,1);
           i:=pos('  ',s);
     End;
     delete(s,1,1);
     delete(s,length(s),1);
End;
Begin
     Write('Nhap xau: '); readln(str);
     SpaceTrim(str);
     writeln(str); readln;
End.