units em Turbo Pascal 7.0. ME AJUDEM!

[Cálleb]

Por favor me ajude. Fiz uma unit em limguagem PASCAL, mas só que quando vou rodar em um program, dá um ERROR 72: UNIT FILE FORMAT ERROR (C:\PROGRA~1\TP\UNITS\CADCLI.TPU). Vou colocar abaixo a minha unit.

unit cadcli;

interface

uses crt;

procedure writexy(x,y: integer; mens: string);

procedure cabecalho;

procedure cadcliente;

implementation

procedure writexy(x,y:integer;mens:string);

begin

gotoxy(x,y);

write(mens);

end;

procedure cabecalho;

begin

clrscr;

writexy(1,1,'|----------------------------------------------------------------------------|');

writexy(1,2,'| ACS |');

writexy(1,3,'|----------------------------------------------------------------------------|');

writexy(1,4,'| Desenvolvido por Calleb VersÆo: 1.0|');

writexy(1,5,'|----------------------------------------------------------------------------|');

end;

{Cadastro de Clientes}

procedure cadcliente;

type cad = record codigo: integer;

nome: string[35];

endereco: string[40];

cidade: string[20];

cep: longint;

fone: longint;

celular: longint;

ref: string[40];

end;

var

cada: file of cad;

x: cad;

confirma: char;

continua: char;

codigo: integer;

begin

assign(cada, 'cada.bin');

reset(cada);

continua:=' ';

while continua <> 'n' do

begin

cabecalho;

writexy(1,7,'-------------------------Cadastro de Clientes-------------------------');

writexy(2,9,'[.....] Digite 0 para novo');

gotoxy(3,9);readln(codigo);

writexy(2,10,'Nome: ');

writexy(2,11,'Endere‡o: ');

writexy(2,12,'Cidade: ');

writexy(2,13,'CEP: ');

writexy(2,14,'Fone: ');

writexy(2,15,'Celular: ');

writexy(2,16,'Referˆncia: ');

gotoxy(8,10); readln(x.nome);

gotoxy(12,11); readln(x.endereco);

gotoxy(10,12); readln(x.cidade);

gotoxy(7,13); readln(x.cep);

gotoxy(8,14); readln(x.fone);

gotoxy(11,15); readln(x.celular);

gotoxy(14,16); readln(x.ref);

if codigo = 0 then

begin

seek(cada,filesize(cada));

x.codigo := filesize(cada)+1;

writexy(2,18,'CONFIRMA? (s/n) [ ]');

gotoxy(19,18);

confirma := readkey;

writexy(19,18,confirma);

if confirma = 's' then

write(cada,x);

end;

writexy(2,19,'CONTINUA? (s/n) [ ]');

gotoxy(19,19);

continua := readkey;

writexy(19,19,continua);

end;

close(cada);

end;

end.

e aqui está o programa para poder rodar a unit:

program empresa;

uses

crt,

cadcli in 'uncli.pas'; {Cadastro de Clientes}

begin

clrscr;

writeln(writexy);

writeln(cabecalho:6);

writeln(cadcliente:6);

readkey;

end.

Por favor, se alguem já passou por isso e sabe como ageitar me ensinem.

[ricci_tondatto]

Para compilar a Unit você deve indicar o diretorio em q ela vai ser salva..

acho q é em Options >> Directories no ambiente TP..

Mas o meu TP 7.0 não tem quem faça ele compilar uma UNIT..

mas tenta aí..