Pascal/Turbo Pascal - Ayuda con vectores

Me pueden poner el código y si es posible explicar los pasos,para hacer unos subprogramas q puedan:

-Almacenar un vector introducido desde teclado (puede ser A1xN o ANx1)
-Imprimir un vector

Muchas gracias de antemano

Investigate algo sobre ARRAY y los ciclos for o while

Supongamos que queremos utilizar un vector de 7 elementos:

Programa Vector;

Uses
Crt;

Const
MaxElem = 7;

Type
VectArr :Array[1..MaxElem] of Integer;

Var
Ind :Integer;
Vect :VectArr;
Ch :Text;

Begin
ClrSrc;
WriteLn('INGRESO DEL VECTOR');
WriteLn('==================');
For Ind := 1 to MaxElem do
Begin
Write('[', Ind, ']? ');
ReadLn(Vect[Ind]);
End; {For]

WriteLn('IMPRIMIENDO EL VECTOR...');
Assign(Ch, 'PRN');
ReWrite(Ch);
For Ind := 1 to MaxElem do
WriteLn(Ch, Vect[Ind]);
Close(Ch);
End. {Vector}

Espero te sea de utilidad. Saludos ;-)