Строки Turbo Pascal

[lvl]

Дана строка символов. Группы символов, разделенные одним или несколькими пробелами и не содержащие пробелов внутри себя, будем называть словами.Найти длину самого длинного слова.

[BDA]

Во-первых, этот форум не авторешатель домашних заданий.
Во-вторых, ознакомьтесь с правилами форума и раздела.
В-третьих, вот решение похожей задачи (поиск самого короткого слова) - чуть переделаете, и готово.
http://programmersforum.ru/showpost....80&postcount=4

Update Mad_Cat, Вы умышленно потеряли pos в ифе? (или я не понял, как работает программа)

[Mad_Cat]

max:=0;
while pos(' ',s)>0 do
begin
if length(Copy(s,1,-1))>max then max:=length(Copy(s,1,pos(' ',s)-1));
delete(s,1,pos(' ',s))
end;
if Length(s)>max then max:=length(s);

[lvl]

Можете помочь с задачей?? у меня она никак не выходит((

Дана строка символов. Группы символов, разделенные одним или несколькими пробелами и не содержащие пробелов внутри себя, будем называть словами. В каждом нечетном по порядку слове поменять местами первый и последний символы.

[Serge_Bliznykov]

для изначальной задачи (поиск слова с максимальной длиной)
можно взять готовое решение тут

[lvl]

cспасибо, но с тем заданием я разобралась уже))