[Димона]

1-я как-то с помощью ф-ции pos и copy

Код:

dl:=1;
while pos(' ',s)<>0 do begin
p:=pos(' ',s);
sl:=copy(s,1,p-1);
end;
if dl<length(sl) then begin
dl:=length(sl);
end;
delete(s,1,p);