Ajuda com Programação

por viniciusav Sáb 01 Out 2011, 15:38

Baixei o seguinte programa em pascal para analisar: http://www.4shared.com/file/IW2MWhcW/Programa_para_anlise_2.html e estou tendo problemas na 2ª Opção, a busca. Ele faz a busca certinha se o nome for igual (se não for igual da erro, e isso não pode acontecer nesse caso), só que logo depois de fazer a busca ele da o mesmo erro citado anteriormente. Abaixo posto o trecho do código que acredito que esteja dando erro.

Código:: write('Informe o nome ou email do contato: '); readln(ProcuraContato); IF ( ProcuraContato <> '' ) THEN BEGIN FOR j := 1 TO 10 DO BEGIN IF ( (ProcuraContato = Registro[j].nome) OR (ProcuraContato = Registro[j].email) ) THEN BEGIN writeln('Nome : ', Registro[j].nome); writeln('Telefone : ', Registro[j].telefone); writeln('Email : ', Registro[j].email); END; END; //Abaixo a parte que acredito que esteja ocasionando o erro IF ( (ProcuraContato <> Registro[j].nome) THEN writeln('Contato nao encontrado.'); END;

Tentei fazer diversas modificações só que não consegui o que desejo. OBS: Da forma que está, caso tenha uma ou mais pessoas de nome igual vai mostrar os dados dessas pessoas, eu quero que aconteça isso, então está certinho dessa forma, só estou com o problema que citei antes.
OBS: Estou utilizando o Pascalzim. ;)

Muito obrigado pela atenção e grande abraço!! Smile

Viniciusav