Ejercicio 2 (Arrays)

Plantee e implemente un programa en PASCAL que solicite nombres de animales por teclado y vaya rellenando un array de 7 elementos, mostrándolos posteriormente por pantalla apropiadamente.

PROGRAM animales(input,output);
(*Programa que reciba el nombre de 7 animales y que a continuación los muestre por pantalla*)
TYPE
    cadena20 = string[20];
     TAelementos = ARRAY [1..7] OF cadena20;
VAR
   Aelementos:TAelementos;
   a:integer;
(*******************************************************************************)
PROCEDURE leer;
VAR
   I:integer;
BEGIN
     FOR I:=1 TO 7 DO
     BEGIN
     write('Escriba el nombre de animal:');
     readln(Aelementos[I]);
     END;
END;
(*******************************************************************************)
PROCEDURE escribir;
VAR
   I:integer;
BEGIN
     I:=0;
     FOR I:=1 TO 7 DO
     writeln(Aelementos[I]);
END;
(*******************************************************************************)
BEGIN
     leer;
     escribir;
     read(a);

END.

Ejemplo de ejecucion