Arreglo simple en borland pascal ejemplo

dada una lista de 100 numeros se puede calcular el promedio y luego escribir la lista:
program logicander;

Uses WinCrt;
const
     n=5;
type
    A=  array [1..N] of integer;
var
   NUM : A;
   C : integer;
   PROM : real;
begin
     writeln ('Menu para calcular el promedio');
     for C:= 1 to n do
         readln (NUM[C]);
     PROM:= 0.0;
     for C:= 1 to n do
         PROM:= PROM+NUM[C];
     PROM:= PROM/N;
     writeln (PROM:3:2);
     for C:= 1 to n do
         writeln (NUM[C]);

end.
by prof Argenis Alzuru