строки в паскале.Задача,помогите решить

[Настя33]

найти в строке слово минимальной длины

[Stilet]

var s,smax:string; i,max:integer;
begin
s:='найти в строке слово минимальной длины';
i:=pos(' ',s); max:=maxint; smax:='';
while i<>0 do begin
 if max>i then begin max:=i; smax:=copy(s,1,i-1); end;
 delete(s,1,i);
 i:=pos(' ',s); 
end;
write(smax);readln;
end;

Годится идея?