Самая длинное слово в строке (прокомментируйте код)

[Alexbmgn]

Прошу, поясните кто может код данной процедуры для вычисления самого длинного слова строки... Прокомментируйте по шагам, как можно более по простому, я теряюсь в процессе...

procedure vich(var s:st; mx,nmx:by);
var i,n,k:by;
begin
mx:=0;nmx:=1;
i:=1;
while i<=length(s)do
if s[i]<>' ' then
 begin
  n:=i;k:=1;
  while s[n+k]<>' 'do
  k:=k+1;
  if k>mx then
    begin
     mx:=k;
     nmx:=n;
    end;
  i:=i+k+1;
 end
else i:=i+1;
writeln('самое длинное слово: ',copy(s,nmx,mx));
end;
end.