c:/gdsf/web/fuentes_pascal/ARRAY5.PAS

PROGRAM EJERC101;
USES CRT;
CONST cad_orig : ARRAY [1..9] OF
CHAR = 'GUAYABITA';
VAR cad_copi : STRING;
VAR i, j : INTEGER;
BEGIN
CLRSCR;
WRITELN (cad_orig);
j := 9;
FOR i := 1 TO 9 DO
      BEGIN
      cad_copi [j] := cad_orig [i];
      j := j - 1;
      END;
FOR i := 1 TO 9 DO
      BEGIN
      WRITE (cad_copi [i]);
      END;
END.