Pascal/Turbo Pascal - problemas con arrays

hola q tal estoy empezando a trabajar con arreglos en pascal y realmente el ejercicio q estoy haciendo es simple solo debo: leer una lista de 10 valores enteros. listarlos por partala en sentido inverso al q ingresaron, eso es todo creo tenerlo listo pero el dev-pascal me dice q hay un ILLEGAL QUALIFER porfa si podeis ayudarme se los agradezco.

program taller1;
uses crt;
const
m=10;
n=1;
type
lista=array[1..10]of integer;

procedure inicializar;
var
i:integer;
begin
for i:=1 to m do
lista[i]:=0; {este es un error q me muestra el pascal}
end;

procedure carga;
var
i:integer;
begin
for i:=1 to m do
writeln('ingrese el valor',i);
read(lista[i]); {este es un error q me muestra el pascal}
end;

procedure mostrar;
var
i:integer;
begin
for i:=10 downto n do
writeln(lista[i]); {este es un error q me muestra el pascal}
end;

begin
inicializar;
carga;
mostrar;
readln;
end.

program arreglo(input,output);
uses crt;
const
max = 10;

type
arregloentero = array[1..max] of Integer;

var
a : arregloentero ;
i : integer ;
car : char;

procedure cargar;
begin
clrscr;
for i := 1 to max do
begin
gotoxy(10,2);
write('Ingrese numero ', i, ' del Arreglo ');
clreol;
readln(a[i]);
end;
end;
procedure mostrar;
begin
writeln;
writeln('Los numeros ingresaron de la siguiente manera: ');
for i := 1 to max do
begin
write(a[i]:5);
end;
end;

procedure alrrevez;
begin
writeln;
writeln('Los numeros de atraz palante son: ');
for i := max downto 1 do

begin
write(a[i]:5);
end;
end;

begin
(* Programa principal *)
cargar;
mostrar;
alrrevez;

car := readkey;

end.

crea una variable lis : lista;
y pon lis[i] := 0;

program taller1;
uses crt;
const
m=10;
n=1;
type
lista=array[1..10]of integer;
var
lis : lista;
procedure inicializar;
var
i:integer;
begin
for i:=1 to m do
lis[i]:=0; {este es un error q me muestra el pascal}
end;

procedure carga;
var
i:integer;
begin
for i:=1 to m do
writeln('ingrese el valor',i);
read(lis[i]); {este es un error q me muestra el pascal}
end;

procedure mostrar;
var
i:integer;
begin
for i:=10 downto n do
writeln(lis[i]); {este es un error q me muestra el pascal}
end;

begin
inicializar;
carga;
mostrar;
readln;
end.

{los typo no se trabajan directamente son para definir tipos personales}