Pessoal tenho que resolver um problema e não to conseguindo. tenho que criar uma agenda Cadastrar um novo registro Localizar pelo nome (parcial) localizar pelo telefone listar todos os registro sair Registro=Record type cliente=record codigo=integer; nome=string; telefone=string; endereço; end; var aluno:cliente begin write('digite um código');readln(aluno.codigo); write('digite um nome');readln(aluno.nome); write('digite o telefone')readln(aluno.telefone); write('digite o endereço')readln(aluno.endereço); readkey write('codigo:',aluno.codigo); write('nome:',aluno.nome); write('telefone:',aluno.telefone); write('endereço:',aluno.endereço); readkey me ajude ai pessoal o resto eu não sei. obrigado.