помогите решить задачу

[Ambros]

Данные строкового типа (string). Ввести фамилию, имя и отчество как одно данное строкового типа. Определить длину строки и количество букв "а" в ней, найти и вывести самое длинное слово.

Длину строки и количество букв «а» в ней я нашел, а как найти самое длинное слово я не понимаю.

[Denager]

var
  sl: TStringList;
  i, maxind, MaxLenth: integer;
begin
  sl := TStringList.Create;
  try
    ExtractStrings([' '], [' '], 'str1 str2asd str3dd str4 str5sdfsdfsdf', sl);

    maxind := 0;
    MaxLenth := length(sl[0]);

    for i := 1 to sl.Count - 1 do
    begin
      if length(sl[i]) > MaxLenth Then
      begin
        maxind := i;
        MaxLenth := length(sl[i]);
      end;
    end;

    ShowMessage(sl[maxind]);

  finally
    sl.Free;
  end;
end;

Ну и проверку сделай на количество items у sl