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

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