c:/gdsf/web/fuentes_pascal/manipula

PROGRAM EJER70;
USES CRT;
VAR i, val_asc : INTEGER;
VAR cad1 : STRING;
BEGIN
i := 0;
cad1 := 'VACA';
CLRSCR;
WRITELN (cad1);
WHILE i <= LENGTH (cad1) DO
        BEGIN
        val_asc := ORD (cad1 [i]);
        cad1 [i] := (CHR (val_asc + 32) );
        i := i + 1;
        END;
WRITELN (cad1);
END.