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

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