работа со строкой

[Андрей.12]

var s,j: string;
    p,w:integer;
begin;

Write ('Введите строку: ');
Readln (s);

p:=pos (' ',s);
j:=copy (s,1,p-1);
Delete (s,1,p);
w:=length (j);
p:=length (s);

if p>w then
write ('Самое длинное слово: ', s)
else
write ('Самое длинное слово: ', j);
readln;
end.

нашел код для 2 слов, исправте для целой строки

[Stilet]

Это что приказ?
Вот пример разбиения строки на слова
http://www.programmersforum.ru/showt...369#post398369
Далее пройдешся по массиву (или сразу при получении слова) и определишь длинные и короткие