recherche caractére

program Recherche_caractere ;
Uses wincrt ;
Var
ch:string ;
i: integer ;
Ex:string;
c,a: char;
Begin
Readln (ch);
readln (c);
for i:=1 to length(ch) do

Begin
a:=ch[i];
if a=c then ex:='existe'
else if ex='existe' then
ex:='existe' else ex:='n"existe pas'
end;

writeln(ex);
end.