Помогите разобраться со строками, плиз!, поменять местами самое длинное и короткое слова. Опции

[what is]

Задача-поменять в строке местами самое длинное и короткое слова. Разделители:' ',',','.','!','"','?','/'.
Написала прогу, заработала она, но не так. Удаляет самое короткое слово, а длинное копирует и вставляет в начало строки. Не могу найти ошибку. Помогите. Я знаю, что такая задача есть в FAQ, но найти не смогла.

Program uzas;
const
 limit=[' ',',','.','!','"','?','/'];
var
 s:string;
 i,k,l,imax,imin,b,lmax,lmin:integer;
 s1,s2:string;
begin
 writeln('строка');
 readln(s);
 i:=1;
 k:=0;
 lmin:=length(s);
 while i<=(length(s)) do
 begin
  if not (s[i] in limit) then
  begin
   k:=i;
   s1:=' ';
   while (i<=length(s)) and (not(s[i] in limit)) do
    begin
     s1:=s1+s[i];
     inc(i);
    end;
   if length(s1)<lmin then
   begin
     lmin:=length(s1);
     imin:=k;
   end;
  end;
  inc(i);
 end;
 lmax:=1;
 while i<=length(s) do
 begin
  if not(s[i] in limit) then
  begin
    l:=i;
    s2:=' ';
    while (i<=length(s)) and (not(s[i] in limit)) do
    begin
     s2:=s2+s[i];
     inc(i);
    end;
   if length(s2)>lmax then
   begin
    lmax:=length(s2);
    imax:=l;
   end;
  end
  else
   inc(i);
 end;
  delete(s,imin,lmin);
  delete(s,imax,lmax);
  insert(s2,s,imin);
  insert(s1,s,imax);
  write(s);
  writeln;
end.