Строки Опции

[Pautina]

Помогите, что-то не получается. Программа должна находить в заданном наборе слово максимальной длины, а выводится длина всех символов
СПАСИБО!

[Айра]

не стал ошибку искать. мой вариант:

Введи "4444 22 333" и посмотри, что она выдаст
Вот мой вариант:

uses wincrt;
var s,word: string;
    max,p: integer;
begin
  writeln ('введите строку');
  readln (s);
  max:=0;
  repeat
    begin
      p:=pos(' ',s);
      if p=0 then
        begin
        	if length(s)>max then
            begin
              max:=length(s);
              word:=copy(s,1,length(s));
            end;
          delete(s,1,max);
        end
      else if (p-1)>max then
             begin
               max:=p-1;
               word:=copy(s,1,p-1);
               delete(s,1,p);
             end
           else if ((p-1)<max) or ((p-1)=max) then delete(s,1,p);
    end;
 until length(s)=0;
  writeln('Максимальная длина слова: ',max,'');
  writeln('Самое длинное слово: ',word,'');
end.

1.p.s. Почему-то кажется, что можно сделать по-проще..
2.p.s. Ой.. нашла и у себя ошибку , если в строке есть одинаковые по длине слова, то зависает, сейчас исправлю..
3.p.s. Исправила

Сообщение отредактировано: Айра - 19.05.2007 14:47