Дана строка символов. Проверить встречается ли первый символ этой строки среди остальных. Паскаль. ​

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.