ввести строку символов затем один символ,определить есть ли символ в строке,если есть,то ввести номер позиции,где он встречается первый раз

var  s: string;  ch: char;  index: integer;begin  writeln('введите строку символов');  readln(s);  writeln('введите символ');  readln(ch);  index:=pos(ch,s);  if index=0 then   writeln('символа в строке нет')  else    writeln('позиция символа в строке ',index);end.{пример}введите строку символовabcdefgвведите символbпозиция символа в строке 2