cargar un vector con una oracion

[luisito2011]

ola... como les dije.. ya me toca vectores..
vectores y lo abia llevado y para mi era re facil.. por que estaba en form ..
pero.. en esta materia.. bueno.. eso no inporta..

(este es el ejercicio.. cargar un vector de tal forma que cada casilla tenga
una oracion).. no inporta si me ayudan a resolver por
que ya lo hice en form. pero en console
es distinto..por eso de la unit

//Como puedo hacer para que mi Unit de mi vector cargue letras y numeros..//
//tendria que poner otro array de tipo string? //
//que cambios tendria.. mi unit ?//
//O seria mejor hacer otro array en la consola?//

esta es mi Unit

Código Delphi [-]
 
unit caja;
interface
CONST MAX=50;
type
cvector = class
  v : array [1..max]of integer;
  N:integer;
  constructor crear;
  procedure dimencionar(dim:integer);
  procedure poner(posi,que:integer);
  function elemento(posi:integer):integer;
  function dimencion :integer;
  procedure cargarvector;
  procedure mostrarvector;
end;
implementation
constructor cvector.crear;
begin
  n:=0;
end;
procedure cvector.dimencionar(dim:integer);
begin
  n:=dim;
end;
procedure cvector.poner(posi,que:integer);
begin
  V[posi]:=que;
end;
function cvector.elemento(posi: Integer):integer;
begin
  elemento:=v[posi];
end;
function cvector.dimencion:integer;
begin
  dimencion:=n;
end;
procedure cvector.cargarvector;
var i,num:integer;
begin
  readln(num); dimencionar(num);
  for i := 1 to dimencion do
    begin
      readln(num); poner(i,num);
    end;
end;
procedure cvector.mostrarvector;
var i:integer;
begin
  for I := 1 to dimencion do
    write(elemento(i):5);
end;
end.

saludos!