Найти в тексте слова, в которых некоторый заданный символ встречается наибольшее число раз

uses crt;
const p=[' ',',','.',';',':','!','?','-'];
var  s,sn,slovo: string;
     i,j,k,kmax: byte;
     c: char;
     
begin
write('s='); readln(s);
s:=s+' ';
slovo:='';
write('Символ: '); readln(c);
kmax:=0;
for i:=1 to length(s) do
    if not (s[i] in p) then slovo:=slovo+s[i] else
       if (length(slovo)>0) and (pos(c,slovo)<>0) then
          begin
          k:=0;
          for j:=1 to length(slovo) do
              if slovo[j]=c then inc(k);
          if k=kmax then sn:=sn+slovo+' ' else
             if k>kmax then
                begin
                kmax:=k;
                sn:=slovo+' ';
                end;
          slovo:='';
          end;
if kmax=0 then writeln('Нет символа ',c,' в тексте') else
   writeln('Символ ',c,' наибольшее (',kmax,') число раз встречается в словах: ',sn);
end.