Pascal/Turbo Pascal - Areglos

Quiero llenar un areglo de N valor introducidos..

quiero saber como ago que el areglo introdusca un valor y el siguiente valor lo coloque en el siguiente espacio-..

EJEMPLO : espacios de 1 hasta 10..

primero introdusco Juan y su telefono de segundo introdusco pedro y su telefono quiero que la informacion de juan se grabe en el primer espacio y la de pedro en el segundo espacio.. luego quisiera imprimir todo los N datos almacenados..

AGRADECERIA MUCHO UNA AYUDA!

Bien pues as algo así
Type
Data = record
Nombre : string;
Telefono : integer; (o longint)

var
Datos : array[1..10] of data;
temp : data;
I,pos : byte;

Begin <<<< inicia programa
for i:=1 to 10 do <<< realiza un loop para ingresar 10 personas
begin
write(‘Nombre : ‘);readln(temp.nombre);
write(‘Telefono : ‘);readln(temp.telefono);
datos[i]:=temp;
end; <<< finaliza el loop
writeln(‘Escribe la posición de la información a desplegar’);
write(‘1 – 10 : ‘);readln(pos);
temp:=datos[pos];
with temp do
begin
writeln(nombre);
writeln(telefono);
end;
readln;
end. <<< finaliza el programa

De esta forma ingresas los datos (nombre,telefono) de 10 personas.
Claro esta que debes mejorar un poco el código, yo solo te doy la idea generar.

Éxitos.

Gracias amigo.. en realidad ese no es el ejercicio que deseo hacer pero es parecido..

aunke tu ejemplo es muy bueno pero aun no convierto la idea ah mi problema..

OBserva este mandato:
----------------------------------------------------------------
Se necesita un programa que permita introducir la matrícula y el índice académico de los N estudiantes de una misma carrera y que determine cuales según su índice académico actual se graduará con honores: cum laude, magna cum laude y summa cum laude. Es necesario que el programa sólo permita índices académicos entre 0.00 y 4.00. Luego de introducir los datos el programa mostrará en forma de reporte y clasificados los que se graduarán con honores.

Cum Laude 3.25 - 3.45

Magna Cum Laude 3.46 - 3.65

Summa Cum Laude >3.65
------------------------------------------------------------------------------
Podrias hacer algun ejemplo que se paresca mas a este mandato?

TE agradeceria un millon . GRACIAS ADELANTADO..