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

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.

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