Помогите пж!! Инфа 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.