Chuẩn hóa đoạn văn bản

Viết chương trình nhập vào một dòng văn bản, hiệu chỉnh văn bản theo những yêu cầu sau đây và in văn bản sau khi hiệu chỉnh ra màn hình:
   a. Xóa tất cả các ký tự trắng thừa.
   b. Trước các dấu câu không có các KT trắng, sau các dấu câu có một KT trắng.
   c. Đầu câu in hoa.
                                              Giải
Var  i,j,x,y: Integer; s: String;
Begin
   Write('Nhap doan van can chuan hoa: '); Readln(s);
   while s[1]= ' ' do delete(s,1,1); while s[length(s)] = ' ' do delete(s,length(s),1); i:=1;
   If length(s) > 2 Then
       repeat
           if (s[i]=' ') and (s[i+1]=' ') then delete(s,i,1)
           else i:=i+1;
           x:=ord(s[i]);
           if ((x=46) or (x=44) or (x=63) or (x=33) or (x=58) or (x=59)) and (s[i-1]=' ') then delete(s,i-1,1);
       until i=(length(s)-1);
   if s[length(s)-1]=' ' then delete(s,length(s)-1,1);
   s[1]:=upcase(s[1]);
   for i:=1 to length(s)-2 do
       if (ord(s[i])=46) or (ord(s[i])=63) or (ord(s[i])=33) or (ord(s[i])=58) or (ord(s[i])=59) then s[i+2]:=upcase(s[i+2]);
   Write('Sau khi chuan hoa duoc: ',s);
   Readln;
End.