Nhập vào một xâu s khác rỗng và thực hiện chuẩn hoá xâu, tức là:

Chương trình như sau:

var s : string;

procedure chuanhoa(var s : string); {s là tham biến để có thể thay đổi trong chương trình con}

var i : integer;

begin

     while s[1]=' ' do delete(s,1,1); {xoá các kí tự cách thừa ở đầu xâu}

     while s[length(s)]=' ' do delete(s,length(s),1); {xoá các kí tự cách thừa ở cuối xâu}

{xoá các kí tự cách thừa ở giữa các từ: nếu s[i-1] là cách thì s[i] là dấu cách là thừa. Phải dùng vòng lặp for downto vì nếu trong quá trình xoá ta làm giảm chiều dài của xâu, nếu for to sẽ không dừng được.}

     for i := length(s) downto 2 do

         if (s[i]=' ') and (s[i-1]=' ') then delete(s,i,1);

{Chuyển kí tự đầu xâu thành chữ hoa}

     s[1] := Upcase(s[1]);

     for i := 2 to length(s) do

         if s[i-1]=' ' then s[i] := Upcase(s[i]) {Chuyển s[i] là kí tự đầu từ thành chữ hoa.}

         else

             if s[i] in ['A'..'Z'] then   {s[i] là kí tự chữ hoa không ở đầu một từ}

                s[i] := chr(ord(s[i]) + 32); {thì phải chuyển thành chữ thường}

end;

BEGIN

   write('Nhap vao 1 xau s:');

   readln(s);

   chuanhoa(s);

   writeln('Xau s sau khi chuan hoa:',s);

   readln;

END.