Chuẩn hóa xâu là một bài tập cơ bản khi học đến phần chuỗi của Pascal. Mục đích của việc chuẩn hóa xâu trong Pascal đó là làm cho xâu trở nên rõ ràng và đúng quy tắc hơn. Mặc dù khi thực hiện chuẩn hóa xâu theo đúng quy tắc viết, sẽ bao gồm nhiều việc như kiểm tra tính đúng sai của câu

var i:longint;
  s:string;
begin
     read(s);
      while s[1]=#32 do delete(s,1,1);
       while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);
        while s[length(s)]=#32 do delete(s,length(s),1);
         for i:=1 to length(s)do
          if s[i] in ['A'..'Z']then s[i]:=chr(ord(s[i])+32);
          for i:=1 to length(s)do
           if s[1] in ['a'..'z']then s[1]:=upcase(s[1]);
            for i:=1 to length(s)do
             if s[i]=#32 then s[i+1]:=upcase(s[i+1]);
              write(s);
end.