слово с наибольшим вхождением заданного символа

Задан текст. Определить слово с наибольшим вхождением заданного символа.

var
   text: string;
   i: integer;
   count: integer;
   slovo: string;
   max_count: integer;
   max_slovo: string;
   c: char;
   
begin
   {наш текст}
   text := 'An emergency WHO meeting on swine flu prompts rumours a pandemic will be declared, as Hong Kong shuts primary schools.';
   
   {проверяемый символ}
   c:='e';
   
   {начальное значение наших счётчиков}
   slovo:='';
   max_count:=0;
   
   for i:=1 to length(text) do begin
      if text[i] <> ' ' then begin
         if text[i] = c then count:=count + 1;
         slovo:=slovo+text[i];
      end else begin
         if count > max_count then begin
            max_count:=count;
            max_slovo:=slovo;
         end;
         
         count:=0;
         slovo:='';
      end;
   end;
   
   writeln('word "', max_slovo, '" has maximum(', max_count, ') of char "', c, '"');

end.

рабочий пример можно скачать тут