Срочно нужна помощь!, написание программы Опции

[lemon-ka]

Если дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 10 символов; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать слова больше 1.
(желательно использовать ф-ции работы со строками)

[Ромаха]

Вечер добрый

Напечатать слова больше 1.

Наверное, тут подразумевается что кол-во символов в слове более 1.
Что ж lemon-ka, данная задача не раз (как я думаю) встречалась на форуме, но если уж срочно (хотя уже 2 дня прошло )

// Писал в браузере => не проверял

const
    PRE = [' ', '.', ',', ':']; // Если кто-либо подскажется мне другое имя для константы, то буду премного благодарен

var
    s, word : string;
    i : Integer;

begin
      ReadLn (s);
      word := '';

      for i := 1 to Length(s) do begin
         if s[i] in PRE then begin
              if Length(word) > 1 then
                  Write (word);
              word := '';
         end
         else
              word := word + s[i]
      end
end.   

Сообщение отредактировано: Ромаха - 11.01.2013 1:23