Aide pascal

Bonjour,

tu peux commencer par les expression régulières. ca peux t'aider à comprendre ton problème: savoir c'est quoi une phrase ( elle commence par une majuscule et ce termine par un point.) .... et d'autres choses de ce genre.

@+

j'essaye deja d'integrer sa a mon programme. : sa sert a supprimer les espace inutiles. :

Program supespacesuperflu;
Function let(s:string; i:word):boolean;
Var prec:boolean; (*prec=true si c'est un espace qui précède*)
Begin
If (i=1) then prec:=true;

If (s[i]<>' ') then begin prec:=false; let:=true; end else
If (s[i]=' ') then
Begin
If (prec=true) then
begin let:=false; prec:=true; end
else
begin let:=true; prec:=true; end;
End;
End;
Var s,d :string;
i:word;
Begin
d:='';
i:=1;
WriteLn('Entrez votre phrase : ');
ReadLn(s);
While (i<=length(s)) do
Begin
If (let(s,i)=true) then d:=d+s[i];
i:=i+1;
End;
WriteLn(d);
ReadLn;
End.




Mais pour le reste je ne sais pas comment faire .

ou a la limite me montrer comment on fait pour que la lettre qui suit un point soit en majuscule. mercii sa m'aiderai vraiment.

?????