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

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.