Заменить поиск слов на количество букв - PascalABC.NET

Формулировка задачи:

Ребятки, написала прогу, всё работает, но попросили изменить параметр. Если изначально она ищет и выдаёт слова(длинное и короткое), то нужно переделать так чтобы выдавала количесто букв в самом коротком и длинном.Вот код:

Program C9_7;
type
  word_rec=record
    word: string;
    len:integer;
  end;
var
  words:array[1..100] of word_rec;
  s:string;
  i, k, min, max:integer;
begin
  writeln('Input string...');
  readln(s);
  k:=1;
  for i:=1 to length(s) do
  begin
    if (s[i]<>' ') then
    begin
      words[k].word:=words[k].word+s[i];
      words[k].len:=length(words[k].word);
    end
    else
      k:=k+1;
  end;
 
  min:=1;
  max:=1;
  for i:=2 to k do
  begin
    if words[i].len>words[max].len then
      max:=i;
    if words[i].len<words[min].len then
      min:=i;
  end;
  writeln('The longest word - ', words[max].word);
  writeln('The shortest word - ', words[min].word);
  end.

Буду очень благодарна за помощь

Решение задачи: «Заменить поиск слов на количество букв»

Листинг программы

writeln('The longest word - ', words[max].len);
  writeln('The shortest word - ', words[min].len);

Объяснение кода листинга программы

Создается массив слов words
Переменная max инициализируется значением len самого длинного слова в массиве words
Переменная min инициализируется значением len самого короткого слова в массиве words
Выводится сообщение с использованием функции writeln о самом длинном слове и его длине
Выводится сообщение с использованием функции writeln о самом коротком слове и его длине