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

{Escribir un programa en Pascal que genera la inversa de una cadena de
caracteres. la cadena original y la invertida deben almacenarse en arrays
independientes.}

PROGRAM EJERC101;
USES CRT;
VAR original : ARRAY [1..4] OF
STRING;
VAR invertida : ARRAY [1..4] OF
STRING;
VAR cadena : STRING;
VAR i : INTEGER;
BEGIN
CLRSCR;
cadena := 'hola';
FOR i := 1 TO LENGTH (cadena) DO
      BEGIN
      original [i] := cadena [i];
      WRITE (original [i]);
      END;
WRITELN ('');
FOR i := LENGTH (cadena) DOWNTO 1 DO
      BEGIN
      invertida [i] := cadena [i];
      WRITE (invertida [i]);
      END;
END.