С клавиатуры вводят слово и символ.составить программу,которая: а)проверяет есть ли в этом слове заданный символ б)определяет позицию заданного символа в)подсчитывает количество вхождений заданного символа.

var s : string; symb : char; i : longint; begin   readln(s);   readln(symb);   if pos(symb,s)=0 then writeln('В этом слове нет этого символа')   else begin          i:=0;          while pos(symb,s)<>0 do begin                                    write(pos(symb,s)+i,' ');                                    i:=i+1;                                    Delete(s,pos(symb,s),1);                                  end;        end;   writeln;   writeln(i); end.