program persona;
uses crt;
CONST
lunghezmax=30;
Type
persona =RECORD
Nome:String[10];
Cognome:String[10];
data:string[10];
Sesso:Char;
END;
Var
Anagrafe:file of persona;
Indfile:string;
persona1ersona;
clrscr;
reset (anagrafe);
Writeln ('Nominativi Trovati');
while not (eof(anagrafe)) do
begin
read (anagrafe, persona1);

Qui devo inserire la condizione se il cognome inizia con la 'c' e di sesso 'm' visulizzalo sullo schermo come devo scrivere questa condizione

If (persona1.sesso = 'm') and ???????? then
writeln (persona1.Cognome, ' ', persona1.nome, ' ', persona1.sesso);
i:=i+1;
end;
readln;
end.