Помогите пж! Инфа 10 кл Задана строка символов и отдельный символ

Vara,b: string; beginwrite ('Введите строку: '); readln (a); write ('Введите символ: '); readln (b); if pos (b,a)=0 then writeln ('Символа ',b,' в строке нет') else writeln ('Символ ',b, ' находится на ', pos (b,a) , ' месте'); end.