Pascal/Delphi Eu estou fazendo um programa para realizar registros de pacientes de hospital,

[Pedro Lage Santos]

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;

 

 

[Simon Viegas]

@Pedro Lage Santos, 

30 minutos atrás, Pedro Lage Santos disse:

Tem algum problema na estrutura de if dessa procedure abaixo que está fazendo ele não rodar.

 

O quê está acontecendo?

 

[Pedro Lage Santos]

@Simon Viegas

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

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

 

[Simon Viegas]

O .diag também é do tipo string?

 

Poste o código completo, assim como um print do erro informado.

 

[Pedro Lage Santos]

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

Valeu de qualquer forma