Programa para compañia de bomberos.

[(RTT)Blackhawk]

Hola , yo soy bombero en chile, y quiero hacer un programa para mi compañia que realize lo siguiente....

Tener en un archivo los nombres con su telefono correspondiente de cada voluntario y con el codigo de los actos a los que quiere que se le llame .

que debe hacer el programa ...

ejemplo...(para que se entienda jaja)

INGRESAR HORA : 09:00
INGRESAR ACTO : 10-0

Usted debe llamar a :

Nombre:Juan Perez
fono: 5555555

Nombre....... ETC....

Esa es la idea CADA voluntario dice en el dia para que actos lo pueden llamar y en la noche para que actos lo pueden llamar...

Bueno el asunto es que estoy intentando hacerlo en Turbo Pascal 1.5 for windows.

Logro que me guarde los datos en un archivo de texto , pero no logro que me los lea para compararlos....

[(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...