Ответ:

var

 s:string;

 i:integer;

begin

 writeln('Введите строку:');

 readln(s);

 for i:=2 to length(s) do if s[i]=s[1] then

begin

 writeln('встречается');

 break;

end;

end.