С клавиатуры вводят слово и символ. Составить программу, которая: а) проверяет…

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.