Pedro Lage Santos

@Simon Viegas Eu consegui resolver aqui. Não descobri o erro hahaha apaguei e refiz e foi

Valeu de qualquer forma

@Simon Viegas

Quando eu rodo no pascalzim aparece que o if "apresenta um tipo inválido de igualdade"

if (dig=diagnostic[k].diag) then

Tem algum problema na estrutura de if  dessa procedure abaixo que está fazendo ele não rodar. Ja conferi todas as variáveis, ta tudo certinho. Quem puder dar uma olhada, eu agradeço

procedure consultadiagnostico;                                // pesquisa diagnóstico //
var
dig: string;
k: integer;
begin;
    write ('Digite o diagnóstico: ');
    readln(dig);
    for k:=1 to 100 do
        begin;
            if (dig=diagnostic[k].diag) then
            begin;
                writeln (paciente[k].CPF,' ',paciente[k].nome,' ',Diagnostic[k].mes,'/',Diagnostic[k].ano);
            end;    
        end;
end;