у меня не получается((
У меня есть программа, которая находит в заданной строке слово, в котором больше всего встречается заданная буква. Может в ней кое-что изменить просто, да и все?

program lab8;
const r=[' ',',','.'];
var s,s1,s2:string;
i,k,m,g,p:integer;
c:char;
begin
writeln('vvedite stroku');
readln(s);
s:=' '+s;
write('vvedite bukvu dlya poiska c=');
readln ©;
m:=0;
for i:=1 to length(s) do
if not(s[i]in r)and (s[i-1] in r) then
begin
k:=i;s1:='';
while not(s[k] in r)and(k<=length(s))do
begin
s1:=s1+s[k];
k:=k+1;
end;
g:=0;
for p:=1 to length(s1) do
if s1[p]=c then g:=g+1;
if g>m then
begin
m:=g;
s2:=s1;
end;
end;
writeln;
if m=0 then write('slov s bukvoi ',c,' net')
else writeln('bolshe vsego bukv ',c,' v slove ',s2);
end.