c:/gdsf/web/fuentes_pascal/manipula

{Escribir un programa en Pascal que elimine los blancos de una cadena de
caracteres. La cadena original y La transformada deben almacenarse en arrays
independientes.}
PROGRAM EJERC103; {Autor: Victor Sanchez Sanchez email: [email protected]}
USES CRT;
VAR cad_tra : ARRAY [1..20] OF
STRING;
CONST cad_ori : STRING = 'la casa es azul';
VAR i : INTEGER;
BEGIN
CLRSCR;
FOR i := 1 TO LENGTH (cad_ori) DO
      BEGIN
      IF cad_ori [i] <> ' ' THEN
         BEGIN
         cad_tra [i] := cad_ori [i];
         WRITE (cad_tra [i]);
         END;
      END;
END.