uses crt;
var s:string;i:longint;
begin
 clrscr;
  write('nhap s:');
  readln(s);
  while s[1]=' ' do delete(s,1,1);
  while s[length(s)]=' ' do delete(s,length(s),1);
  for i:=1 to length(s) do if(s[i]=' ')and(s[i+1]=' ')then while(s[i]=' ')and(s[i+1]=' ')do delete(s,i,1);
  write('xau s sau khi chuan hoa la: ');
  textcolor(lightcyan);
  write(s);
 readln
end.

// 1-2.Theo mình nghĩ, đầu câu và cuối câu là trước dấu " . " và sau dấu " . ", nên mình sẽ làm như sau:

// Xoá hết dấu cách ở đầu và cuối dấu chấm

// 3 . Cơ bản mà bạn

// B1 xoá dấu cách thành còn 1 dấu cách 

// B2 Xoá hết dấu cách ở đầu và cuối dấu chấm

// Có gì thắc mắc báo nhé

uses crt;
 var s : string ;
      i : longint ;
  begin 
   clrscr;
readln(s);
// xoá dấu cách 
while s[1]=' ' do delete(s, 1, 1);
while s[length(s)]=' ' do delete(s,(length(s)), 1);
while pos('  ',s) <> 0 do delete(s,(pos('  ',s)),1) ;
// xoá cách giữa 2 dấu chấm
//1.
while pos(' .',s)<>0 do delete(s, (pos(' .',s)) ,1) ;
//2.
while pos('. ',s)<>0 do delete(s, (pos('. ',s)) ,1) ;
write(s);
  end .