Viết chương trình nhập vào từ bàn phím một xâu có thể chưa chuẩn về dấu cách, hãy loại bỏ các dấu cách thừa có trong xâu đó. Ví dụ : ' Hoc tap suot doi ''Hoc tap suot doi' Cách làm: + Xóa dấu cách thừa ở đầu và cuối xâu: Kiểm tra cứ khi nào ký tự đầu tiên hoặc kí tự cuối của xâu S: là dấu cách thì xóa bỏ. +Xóa dấu cách thừa ở giữa các từ: Cứ khi nào s[i] và s[i+1] đều là dấu cách thì xóa đi 1 dấu cách.

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

writeln('Xau vua nhap la: ',st);

for i:=1 to d do 

  if st[i]=#32 then delete(st,i,1);

writeln('Xau moi la: ',st);

readln;

end.

program bai_giai;
uses crt;
var s:string;i:longint;
begin
 clrscr;
  write('nhap xau s:');readln(s);
  while s[i]=' ' do delete(s,1,1);
  while s[length(s)]=' ' do delete(s,length(s),1);
  for i:=1to length(s)do while (s[i]=' ')and(s[i+1]=' ')do delete(s,i,1);
  write(s);
 readln
end.