[Pascal]Вывод слов максимальной длинны

[Lankaill]

Здраствуйте. Нужна помощь. Задание такое: Ввести строку из нескольких слов разделенных пробелом, найти слова максимальной длинны и вывести их на экран. если слов с максимальным кол-вом букв несколько, вывести все. Проблема в том, что паскаль я совершенно не помню, и своего кода представить наверное не смогу, но есть хотя-бы идея:
Скопировать первое слово во вторую строку
удалить слово из первой строки за ненадобностью
в третью строку скопировать следующее слово из первой
удалить его из первой
сравнить длинну второй и третьей строки, и т.д. до конца, в итоге вывести на экран оставшуюся строку с максимальным кол-вом символов. Правда что делать с повторами не придумал. Может кто помочь с кодом?

[Arigato]

Тестировал в Делфи 7:

var
  S, Wrd: string;
  i, MaxLen: Integer;
  List: array of string;

begin
  ReadLn (S);
  S := S + ' ';
  Wrd := '';
  MaxLen := 1;
  for i := 1 to Length (S) do begin
    if S[i] = ' ' then begin
      if Length (Wrd) > MaxLen then begin
        SetLength (List, 1);
        List[0] := Wrd;
        MaxLen := Length (Wrd);
      end else begin
        if Length (Wrd) = MaxLen then begin
          SetLength (List, Length (List) + 1);
          List[Length(List)-1] := Wrd;
        end; {if}
      end; {if}
      Wrd := '';
    end else Wrd := Wrd + S[i];
  end; {for}
  for i := 0 to Length (List) - 1 do begin
    WriteLn (List[i]);
  end; {for}
  ReadLn;
end.

[Lankaill]

Спасибо. А не могли бы вы пояснить 1 момент-

S := S + ' ';
  Wrd := '';

Зачем нужно прибавлять к строке пробел? как разделителей их там и так хватает же.
И зачем обнулять строку Wrd, она же изначально пустая, в нее ничего не вводится.

[Mad_Cat]

Зачем нужно прибавлять к строке пробел?

чтобы, если вдруг там нет в конце пробела, учесть последнее слово!

[Arigato]

Сообщение от Lankaill

И зачем обнулять строку Wrd, она же изначально пустая, в нее ничего не вводится.

Изначально она неинициализирована. Считается, что нужно явно инициализировать все переменные перед использованием.