Recimo da imas string
sentence gde ti se nalazi recenica. Ovo pisem iz glave pa mozda ima neka sitna greska

:
Code:
var
C1 : Integer;
tmp : String;
ml : Integer;
begin
ml := 0;
tmp := sentence;
repeat
If Pos(' ', tmp) - 1 > ml Then
ml := Pos(' ', tmp) - 1;
tmp := Copy(tmp, Pos(' ', tmp) + 1, Length(tmp) - Pos(' ', tmp));
until Pos(' ', tmp) = 0;
end.