Процедура: определить в строке длину самого короткого и самого длинного слова

var
    str: string;
    len, i: byte;
    shortest, longest, current: byte;
begin
    readln(str);
    len := length(str);
    shortest := 255;
    longest := 0;
    current := 0;
    for i:=1 to len do begin
        if (str[i] <> ' ') then
           current := current + 1
        else begin
            if current < shortest then
                shortest := current;
            if current > longest then
                longest := current;
            current := 0;
        end;
    end;
    if current < shortest then
        shortest := current;
    if current > longest then
        longest := current;
 
    writeln('Cамое длинное слово состоит из: ',longest,' символов.');
    writeln('Самое короткое слово состоит из: ',shortest,' символов.');
readln;
end.

procedure shortest(str: string);
begin
  var s := 255;
  var current := 0;
  for var i := 1 to str.Length do begin
    if (str[i] <> ' ') then
      current := current + 1
    else begin
      if current < s then
        s := current;
      current := 0;
    end;
  end;
  if current < s then
    s := current;
  writeln('Самое короткое слово состоит из: ', s, ' символов.');
end;
 
procedure longest(str: string);
begin
  var l := 0;
  var current := 0;
  for var i := 1 to str.Length do begin
    if (str[i] <> ' ') then
      current := current + 1
    else begin
      if current > l then
        l := current;
      current := 0;
    end;
  end;
  if current > l then
    l := current;
  writeln('Cамое длинное слово состоит из: ', l, ' символов.');
end;
 
begin
  var str := ReadlnString;
  longest(str);
  shortest(str);
end.

begin
  var str := ReadlnString.ToWordsas;
  writelnformat('Самое длинное слово состоит из {0} символов.', str.Where(v -> v.Length = str.Max(c -> c.Length)).First.Length);
  writelnformat('Самое короткое слово состоит из {0} символов.', str.Where(v -> v.Length = str.Min(c -> c.Length)).First.Length);
end.

procedure FindLens(s : String; var mi, ma : Integer);
begin
  try
    var d := ' .,?!:;"'.ToCharArray;
    var l := s.toWords(d).select(word->word.length);
    (mi,ma) := (l.Min,l.Max);
  except
  end;
end;
 
begin
  var minLen, maxLen : Integer;
  FindLens(ReadLnString('Введите строку символов:'), minLen, maxLen);
  WriteLn('Длина самого короткого и самого длинного слов строки соответственно: ' + minLen + ' и ' + maxLen + '.');
end.

begin
  var str := ReadlnString.ToWords;
  writelnformat('Самое длинное слово состоит из {0} символов.', str.MaxBy(s -> s.Length).Length);
  writelnformat('Самое короткое слово состоит из {0} символов.', str.MinBy(s -> s.Length).Length);
end.