Слово максимальной длины

[Broken Angel]

У меня в наличии есть программа вывода слова с максимальной длиной.
Помогите вписать сюда прогу по расчету кол-ва слов, стоящих до этого максимального слова. Пожалуйста!
Сама прога вот:

Program Kurochka;
uses crt;
const
  dividers=[' ',',','.',';',':','-','=','+'];
var
 i:integer;
 s,max,temp:string;
begin
 begin
clrscr;
 writeln('Введите строку:');
 readln(s);
  temp:='';
  max:='';
  {пробегаем всю строку посимвольно}
  for i:=1 to length(s) do
    begin
      if not (s[i] in dividers) then
        temp:=temp+s[i];
      if (s[i] in dividers) or (i=length(s)) then
        if temp<>'' then
        begin
          if length(temp)>length(max) then
            max:=temp;
          temp:='';
        end;
    end;
  end;
  writeln('Слово максимальной длины: ',max,'.')
  end.

[GetMax]

const

  dividers=[' ',',','.',';',':','-','=','+'];

var

 i:integer;

 s,max,temp:string;

 Kol_Slov:Byte;

 Max_kol_slov:Byte;
begin

 writeln('Введите строку:');

 readln(s);

  temp:='';

  max:='';

  Kol_slov:=0;
 
  Max_Kol_slov:=0;
  {пробегаем всю строку посимвольно}

  for i:=1 to length(s)+1 do
  begin
   if  (not (s[i] in dividers)) and (S[i] <> ' ') and (i <> Length(S)+1) then
      temp:=temp+s[i]
   Else
   if (s[i] in dividers)  or ((S[i] = '') or (i = Length(S)+1) then
   begin
     Inc(Kol_slov);
     if length(temp)>length(max) then
     Begin
       Max_Kol_slov:=Kol_slov-1;
       max:=temp;
     End;
     temp:=''
   end;
   end;
  writeln('Слово максимальной длины: ',max,'.');
  Writeln('Количество слов до него = ', Max_Kol_slov);
  Readln

[Broken Angel]

Спасибо большое!!
А не подскажите еще, как можно задать длину слова?