Pascal/Turbo Pascal - Ayuda con un vectorcito

Hola buenas noches, el proposito de mi consulta es que quiero usar un vector de 10 espacios para almacenar 10 numeros y mostrarlos, pero los numeros los quiero ingresar yo y mostrarlos nada mas.
Me preguntaba como podria hacerlo desde ya muchas gracias :)

var
numeros : array[1..10] of integer;

uses
crt;
procedure entrdanumeros;
var
i : integer;
begin
for i := 1 to 10 do
begin
gotoxy(10,3 + i);write('Nº = ',i);
gotoxy(18,3 + i);read(numeros[i]); {Entramos los 10 numeros en el vector}
end;
end;

procedure presenta;
var
i : integer;
begin
for i := 1 to 10 do
writeln(numeros[i]);
readln;
end;

begin
clrscr;
entrdanumeros;
presenta;
end.

uses crt;
const
max = 10;
type
lista = array[1..max] of Integer;
var
A : lista ;
i : integer ;
car : char ;
(******************************************)
(* procedimiento para leer los 10 numeros *)
(******************************************)
procedure leer_arre;
var
y : Integer;
begin
for y := 1 to max do
begin
writeln('Ingrese el N§ ', y);
readln(A[y]);
end;

end;


begin
clrscr;
fillchar(A, SizeOf(A), 0);

leer_arre;
(**************************************)
(* imprimir los elementos del arreglo *)
(**************************************)
for i := 1 to max do
begin
write(A[i]:5);
end;
car := readkey;
end.