строки(Delphi)

[U4-nik]

Помогите пожалуйста реализовать программу.Вот условие:

Стихотворный текст (в строке не более 80 символов)
Записать его «лесенкой» (по одному слову в строке).

Помогите ПЛЗ.Нужно очень срочно, а вот как делать понятия не имею...

[Valio]

Пройтись циклом по строке. Встретил пробел - writeln.

[Alex11223]

И пробел удалить наверно надо. (delete функция, гугл)

[U4-nik]

пробывал, пытался, безуспешно...спасибо огромное за советы, но можно полный код программы?говорю прямо, так как выбора уже нету.
Если кто возьмется помочь с кодом, то напишите ещё плз куда вводите строки, и куда выводится результат.
ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО!!!

[kangreon]

"Лесенкой", имеется ввиду так?

У
  лукоморья
                 дуб
                      зелёный;

Златая
          цепь
                 на
                     дубе
                           том:

[U4-nik]

да...так должно быть после выпонения программы.А исходный текст по обычному:

у лукоморья дуб зеленый
златая цепь на дубе том

[kangreon]

На форме должно быть два Memo. И одна кнопка Button1
В Memo1 - исходный текст.
В Memo2 - Будет результат.

Код события OnClick у Button1:

procedure TForm1.Button1Click(Sender: TObject);

{ Добавление пробелов и нового слова }
  procedure Probel(var s: string; count: integer; Add: string);
  var
    i: integer;
  begin
    for i := 1 to count do
      s := s + ' ';
    s := s + Add + #13#10;
  end;

var
  i, k, l: integer;
  Len: integer;
  s, t: String;
begin
  Memo2.Clear;

  { Шрифт для удобного выравнивания }
  Memo2.Font.Name := 'Lucida Console';

  { Убираем перенос строк }
  Memo2.WordWrap := False;

  { Проход по всем строкам исходного текста }
  for i := 0 to Memo1.Lines.count - 1 do
  begin
    { Копирование строк по очереди во временную переменную }
    s := Memo1.Lines.Strings[i];

    { Добавление в конце строки пробела }
    if s[Length(s)] <> ' ' then
      s := s + ' ';

    Len := 0;
    k := 1;
    t := '';

    { Поиск всех пробелов }
    while PosEx(' ', s, k) <> 0 do
    begin
      l := PosEx(' ', s, k);
      Probel(t, Len, Copy(s, k, l - k));

      { Количество символов до следующего слова }
      Len := l;

      k := l + 1;
    end;

    { Вывод результата }
    Memo2.Lines.Add(t);

  end;
end;

В Uses надо подключить StrUtils.

uses
  ..., StrUtils;

[U4-nik]

СпаСИБО!!!!!!