Programa para compañia de bomberos.

[(RTT)Blackhawk]

program vigesima;
uses wincrt;

type
voluntarios=record
nombre:string;
telefono:string;
asiste:integer;
numcod:integer;
end;

var
codigo:array[1..10] of voluntarios;
i,n:integer;
cod:integer;
tel:string;
archivo: Text;


procedure xllamado;
var
clave,num:integer;

begin
clrscr;
gotoxy(18,2);write(' Ingrese clave de llamado: ');
readln(clave);
num:=0;
writeln(' ');
for i:=1 to n do
begin
if codigo[i].asiste = clave then
begin
writeln('Nombre: ',codigo[i].nombre);
writeln('Telefono: ', codigo[i].telefono);
writeln('---------------');
end;
end;
end;
begin
clrscr;
write('Cuantos voluntarios ingresara ?: ');
readln(n);
clrscr;
for i:=1 to n do
begin
gotoxy(18,8);write('Ingrese codigo de compañia: ');
readln(cod);
assign(archivo,'base.txt');
codigo[i].numcod:=cod;
rewrite(archivo);
gotoxy(18,9);write('Ingrese su nombre: ');
readln(codigo[i].nombre);
gotoxy(18,10);write('A que actos asiste: ');
readln(codigo[i].asiste);
gotoxy(18,11);write('Telefono: ');
readln(tel);
codigo[i].telefono:=tel;
write(archivo);
append(archivo);
writeln(archivo,codigo[i].numcod,' ',codigo[i].nombre,' ',codigo[i].asiste,' ',codigo[i].telefono);
close(archivo);
clrscr;
end;
xllamado;
end.;


Ese es el codigo que tengo echo....

Un millon de gracias de antemano...