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

var

slovo, simval:string;

i, k:integer;

begin

k:=0;

write ('vvedite slovo ') ;

readln (slovo) ;

write ('vvedite simval ') ;

readln (simval) ;

for i:=1 to length (slovo) do

begin

if slovo[i]=simval then k:=k+1;

if slovo[i]=simval then writeln (i,' ') ;

end;

if k>=1 then

writeln ('YES vstre4aets9 ', k,' raz, na pozicii ', i) else writeln ('NO') ;

writeln;

end.

вот в одном решении