Найти слово, содержащее максимальное количество указанных букв — Pascal(Паскаль)

{Найти слово, содержащее максимальное
 количество указанных букв}

program pr13c;
const sighnp=[' ','.',',','?','!',':'];
var f:text;
    s,sl,slo,b,slovo,name:string;
    l,t:integer;

function WordT(var s:string):string;
var k,i:integer;
begin s:=s+' ';k:=1;
      while not(s[k] in sighnp) do inc(k) ;
      if k>1
         then begin WordT:=copy(s,1,k-1);
                    delete(s,1,k)
              end
         else WordT:=''
end;
begin write('Введите имя файла:');
      readln(Name);
      write('Введите букву:');
      readln(b);
      assign(f,name);
      reset(f);slovo:='';l:=0;
      WHILE NOT(EOF(F)) do
        begin readln(f,s);
              sl:=WordT(s);
              while sl<>'' do
                begin t:=0;
                      slo:=sl;
                      while pos(b,sl)>0 do
                        begin inc(t);
                              sl[pos(b,sl)]:=' '
                        end;
                      if t>l then begin l:=t;slovo:=slo end;
                      sl:=WordT(s)
                 end;
         end;
       writeln('Искомое слово:',slovo);
       close(f);
       readln
end.