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

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