Program ChuanHoaChuoi;

Var s:String;

Begin

  Write('Nhap chuoi mauon chuan hoa :');

  Readln(s);

  While Pos('  ',s)>0 Do

    Delete(s,pos('  ',s),1);

  If s[1]=' ' then delete(s,1,1);

  If s[length(s)]=' ' then delete(s, length(s),1);

  Write('Chuoi sau khi xu ly:',s);

  Readln

end.

xin ctlhn và cảm ơn + 5sao

uses crt;

Var

         S:String;

Begin

          readln(S);

          while pos(' ',S)>0 do delete(S,pos(' ',S),1);

          {while S[1]= ' ' do delete(S,1,1);

          while S[length(S)]=' ' do delete(S,length(S),1);}

          write(S);

          Readln;

End.

Mình cho 2 câu lệnh sau vào dấu { }, bạn chạy thử CT, nếu đúng thì bạn có thể bỏ, thiếu trường hợp thì bạn thêm vào, tại lần đầu làm bài này