Estrutura de dados

unit agenda; interface uses crt,dos; type registro = record matricula: string[10]; nome : string[50]; endereco : string[40]; bairro : string[30]; cidade: string[50]; estado: string[2]; cep : STRING[10]; sexo : string[1]; fone : string[15]; cel : string [15]; idade :integer; anoatual : integer; ano: integer; end; arquivo = file of registro; var trabalho1: arquivo; reg: registro; opcao : integer; aux : string [10]; total: integer;
//Prototipos
Procedure menu; procedure abre_arq; procedure fecha_arq; procedure cadastro ;
PROCEDURE LISTAR ;
PROCEDURE BUSCAR ; procedure alterar; implementation Procedure menu;
VAR
op:integer;
Dia,
Mes,
Ano,
Dia_Semana,
Hora,
Minuto,
Segundo,
Dec_Segundo : Word;
BEGIN
// gotoxy(0,0); textcolor( lightcyan ); textbackground( black );

GOTOXY(15,2);WRITELN('BEM VINDO A AGENDA ELETRONICA'); GOTOXY(10,5);writeln ('*** M E N U D E O P C O E S ***'); GOTOXY(10,6);WRITELN ('******************************************'); GOTOXY(10,7);WRITELN ('** 1-CADASTRO **'); GOTOXY(10,8);WRITELN ('** 2-LISTAR AGENDA **'); GOTOXY(10,9);WRITELN ('** 3-BUSCAR CONTATOS **'); GOTOXY(10,10);WRITELN ('** 4-ALTERAR **'); GOTOXY(10,11);WRITELN ('** 5-SAIR **'); GOTOXY(10,12);WRITELN ('** ESCOLHA UMA OPCAO **'); GOTOXY(10,13);WRITELN ('******************************************'); GOTOXY(10,16);WRITELN ('******************************************'); GOTOXY(10,17);WRITELN ('*** ALUNOS DE CLEIDE CORPORATE LTDA. ***'); GOTOXY(10,18);WRITELN ('******************************************'); GOTOXY(60,2);WRITELN ('Densenvolvido por:'); GOTOXY(60,3);WRITELN ('Cleiton Assis'); GOTOXY(60,4);WRITELN ('Cledsoney Matos'); GOTOXY(60,5);WRITELN ('Joao