Заменить поиск слов на количество букв - 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.