[Natyg]

Buenas a todos!
Recién estoy aprendiendo a programar y he tenido problemas con la escritura.
Estoy intentando crear una clase con funciones y procedimientos en un unit y llamarlos en un program, sin embargo no logro escribir correctamente el program, he adaptado lo que tengo a partir de un código base que me pasaron, y no me compila.
Alguien puede ayudarme a corregir el/los errores?

Este es el Unit: (Ya me compila)

Código PHP:

unit Vector;

interface

uses SysUtils ;

const
MaxE = 1024;

type
ConjuntoElementos = array[1..MaxE] of Integer;
CEMVector = class(Exception);
CVector = class Valor:integer;

private
N:Integer;
Elementos:ConjuntoElementos;

public
constructor Crear;
procedure Dimensionar(Dim:Word);
procedure Poner(Posi:Word;Elem:Integer);
function Dimension : Word;
function ComoString : String;
end;

implementation

constructor CVector.Crear;
begin
N:=0;
end;

procedure CVector.Dimensionar(Dim:Word);
begin
if Dim<MaxE then
N:=Dim
else
Writeln('ERROR fuera de rango; digite un numero mas pequeño');
end;

procedure CVector.Poner(Posi:Word;Elem:Integer);
begin
if (Posi > 0) and (Posi <= N) then
Elementos[Posi]:= Elem
else
// llamar a error “ indice fuera de rango “
end;

function CVector.Dimension:Word;
begin
Dimension:=N;
end;

function CVector.ComoString:String;
Var S:string; I:integer;
begin
S:='';
for I:=1 to N do

S:=S+inttostr(Elementos[i])+'';
end;


end. 


Este es el Program: (Seguro que tiene muchos errores me disculpo por eso, una vez logre que compile pasaré el código bien escrito)
El error que me impide seguir corrigiendo es que no encuentra el CVector que escribí en el uses

Código PHP:

program Vector;

{$APPTYPE CONSOLE}

uses
  SysUtils, CVector, Vector in 'Vector.pas';

type
Aplicacion = class Valor:integer;
Var
Vec:CVector;


constructor aplicacion.crear;
begin
Vec:=cvector.crear;
end;

procedure aplicacion.dimesionar;
var k: integer;
begin
Writeln('Digite cantidad de casillas:');
Readln(Dim);
Vec.dimensionar(Dim);
end;

procedure aplicacion.poner;
var
I,k:integer;
begin
for i:= 1 to vec.dimension do
begin
readln(k);
vec.poner(I,k);
end;
end;
………….
/// completar codigo
begin
End. 


Les agradezco mucho su ayuda!