Работа со строками- вывести короткое слово

[Алькер]

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

var
  s, s2, F, I, O: string;
  j, p, colA: integer;
 
begin
readln(s);
  colA := 0;
  Writeln('0) Длинна строки: ', length(s) );
 
  s2 := s + ' ';
    p := pos(' ', s2);
  F := copy(s2, 1, p);
  delete(s2, 1, p);
  p := pos(' ', s2);
  I := copy(s2, 1, p);
  delete(s2, 1, p);
  p := pos(' ', s2);
  O := copy(s2, 1, p);
  delete(s2, 1, p);
   for j := 1 to length(s) do
    if ((s[j] = 'а') or (s[j] = 'А') ) then
      inc(cola);
      Writeln('2)Определить сколько букв «а» есть в слове: ', cola);
       
end.

А как вывести самое короткое слово?

[Serge_Bliznykov]

Write('Самое короткое слово ');
if (Length(F)<Length(I)) and  (Length(F)<Length(O)) 
then  WriteLn(' ФАМИЛИЯ (длина = ', Length(F),')')
else
  if (Length(I)<Length(F)) and  (Length(I)<Length(O)) 
  then  WriteLn(' ИМЯ (длина = ', Length(I),')')
  else WriteLn(' ОТЧЕСТВО (длина = ', Length(O),')');

Это если не допускать, что может быть НЕСКОЛЬКО коротких слов (если их длина равна минимуму). Но это тоже несложно реализовать...

[Алькер]

Спасибо большое)