Uses Crt; 
Var
t,s: String; 
i: Integer; 
otvet: Boolean; 
Begin
 ClrScr; 
 Writeln('Введите строку:'); 
 Readln(t); 
 Write('Введите символ поиска: ') 
 Readln(s); 
 For i:=1 To length(t) Do
 If t[i]=s Then otvet:=true; 
 If Otvet=true Then Write('да') 
 Else Write('нет'); 
 Repeat Until KeyPressed 
End.