Ejercicio 15(Procedimientos y funciones)

Plantee e implemente en PASCAL el subprograma quitaEspacios, que recibe una cadena y la devuelve sin los espacios que ésta incluya. Además del subprograma, implemente un programa principal apropiado para probar su funcionamiento.


 PROGRAM stringg (input,output);
(*Ejercecio que une un string*)
VAR
Cadena:string(40);
c:integer;
(******************************************************************************)
PROCEDURE unir;
VAR
   I,espacio,final:integer;
BEGIN
     Writeln('Escribe la frase: ');
     Read(Cadena);
     final:=INDEX (Cadena,'.');
     FOR I:=1 TO final DO
         BEGIN
         espacio:= INDEX (Cadena,' ');
         IF espacio>0 THEN Cadena:= substr(Cadena,1,espacio-1) + substr(Cadena,espacio+1);
         END;
     writeln(Cadena);
     END;
(******************************************************************************)
PROCEDURE leerc;
BEGIN
readln(c);
END;
(******************************************************************************)
BEGIN
unir;
leerc;
END.

Ejemplo de ejecucion