Pascal/Turbo Pascal - ayuda!! que hago mal??? (msje arreglado)

Hola!! Alguien me podria decir que hago mal?????Gracias!!!!!!!!!

Program Horas;
uses crt;

type

str50=string[50];
str4=string[4];

RecHoras= record {Registro de horas trabajadas}
Id_Empleado : byte; {Empleado}
Id_Proyecto : str4; {Nombre del Proyecto}
Fecha : longint; {Formato aaaammdd}
Cant_H_Trab : byte; {Horas trabajadas en el dia}
D_Tarea : str50; {Descripcion de tarea realizada}
end;

TArchHoras = file of RecHoras;

Procedure CrearCargarArch(var Horas : TArchHoras);
var
RegH: RecHoras;
begin
assign(Horas,'HORAS.Dat');
{$I-}
reset(Horas);
{$I+}
if ioresult=2 then
Rewrite (Horas)
else begin
write('Error desconocido. ');
write('El programa terminará .');
readkey;
halt
end{.};

write('Ingrese el ID del empleado: ');
read(RegH.Id_Empleado);

while RegH.Id_Empleado <> 0 do {carga datos hasta ingresar Empleado=0}
begin
write (RegH.Id_Empleado);

write('Ingrese ID del Proyecto: ');
read(RegH.Id_Proyecto);
write (RegH.Id_Proyecto);

write('Ingrese la fecha del proyecto (aaaammdd): ');
read(RegH.Fecha);
write (RegH.Fecha);

writeln('Ingrese la cantidad de horas trabajadas');
read(RegH.Cant_H_Trab);
write (RegH.Cant_H_Trab);

write('Ingrese la descripci¢n de la tarea realizada.');
writeln ('(M ximo 50 caracteres)');
read(RegH.D_Tarea);
write (RegH.D_Tarea);

write('Ingrese el ID del empleado: ');
read(RegH.Id_Empleado);

end;
end;

begin
clrscr;
CrearCargarArch(Horas);
Close (Horas);
end.

Antepenúltima línea:

le estás pasando como parámetro al procedimiento el nombre del programa!!

Lo que tienes que hacer es crear una variable global de tipo TArchHoras, y que no se llame HORAS, porque te daría un nombre de identificador duplicado

Y en la penúltima igual, claro