Xóa ký tự trắng

Viết chương trình nhập một xâu từ bàn phím. In ra xâu đó sau khi xóa hết các ký tự trắng thừa trong xâu. (Ký tự trắng thừa là các ký tự trắng đầu xâu, cuối xâu và nếu ở giữa xâu có 2 ký tự trắng liên tiếp nhau thì có 1 ký tự trắng thừa).
                                              Giải
Var
   i,j: Integer;
   s,s1,s2: String;
Begin
       Write('Nhap chuoi 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;
       repeat
           if (s[i]=' ') and (s[i+1]=' ') then delete(s,i,1)
           else i:=i+1;
       until i=(length(s)-1);
       Write('Sau khi chuan hoa duoc: ',s);
       Readln;
End.