Поиск символа в строке. Pascal

На основе этой программы

program z1;
uses crt;
var a,b:string; i,k:integer;
begin
clrscr;
readln(a);
readln(b);
if length(a)

var
s:string;
c:char;
b:boolean;
begin
b:=false;
for i:=1 to length(s) do
if s=c then b:=true;
end.

открывать какой либо справочник влом, так что скажу из памяти:
pos(Что ищем, где ищем) . Возвращаемое значение - номер позиции или -1 если ниче не найдено.

STR-строка, CH-искомый символ символ
if Pos(STR, CH)<>0 then // символ есть