Pascal/Turbo Pascal - eliminar espacios superfluos

Buenas noches:

Necesito eliminar los espacios superfluos de una cadena.
Un espacio es superfluo si está al principio o al final de una cadena, o si está acompañado por otro espacio en blanco.
Por ejemplo, "+++Esto++es+un++++ejemplo" se quedaría en "Esto+es+un+ejemplo" (siendo + un espacio en blanco)

Ya tengo como eliminar los del principio y el final, me faltan los de en medio.

(perdon por los modos, pero tengo muchisima prisa y no puedo detenerme mucho en esto)

Gracias de antemano

Saludos

var
S: string;
i: integer;
begin
i:=pos(' ',S);
while i > 0 do
begin
delete(S,i,1);
i:=pos(' ',S);
end;
Writeln(S);
end.

Hecho.

PD: si estás muy apurado entonces no tendrás tiempo de leer esto, verdad?.

Ehhm, tiene que eliminar blancos superfluos, es decir, cuando haya 2 o mas espacios juntos, debe eliminar espacios hasta dejar 1, pero no eliminarlos todos.

Que es exactamente lo que hace el algoritmo que escribí. Quizá lo copiaste mal, donde aparecen comillas simples hay dos espacios, no uno.

Ah, ya veo. Esto es lo que pasa, cuando un mensaje pasa por el filtro del foro le quita los dos espacios contíguos, por eso en mi mensaje aparece como uno solo. Mis disculpas por eso.

Bueno pues, eso mismo, que donde hay ' ', debe haber dos espacios entre las comillas simples.

Aaah, ya comprendo.

Muchas gracias por el algoritmo y por la explicacion. (que situacion tan cachonda)