Bonjour j'essaie de faire un programme qui supprime les espaces en trop dans une chaine de caractère j'ai donc fait l'algo suivant :
 

 
a partir de cela j'ai fait le programme en pascal pour delphi :
 

for i:=1 to length(chaine) do
    begin
    if ((chaine[i]=' ') and (chaine[i+1])) then
        begin
            chaine[i]:= chaine[i+1];
        end;
    end;

mais mon probleme est que ce code ne fonctionne pas et je ne sais pas pourquoi est ce que vous pourriez m'expliquer quelle erreur j'ai fait.

Salut
 
quand tu sera arrivé à la fin de ta boucle, chaine[i+1] va te donner de la choucroutte car ça correspond au caractère dans (length[chaine]+1)    
 
après je sais pas trop si on peut décaler comme ça dans une chaine enfin si c'est prudent de le faire  
 
à ta place, j'utiliserais une autre variable pour n'y stocker que les caractères de la chaine qui ne sont pas un espace:
 

 
c'est plus propre comme ça