Я использовал такую конструкцию:
program kk;
uses crt;
var
st,by:string;
function word:integer;
var
i,s1,s2:integer;
begin
s1:=0;
for i:=1 to length(st) do
begin
if st[i]=by then s1:=s1+1;
halt;
end;
writeln('Slov: ',s1);
word:=s1;
end;
begin
clrscr;
writeln;
writeln('vvedite slova: ');
readln(st);
writeln('vvedite by: ');
readln(by);
writeln(word);
readln;
end.
НО она считает кол-во букв а не слов не подскажите как переделать?