Найти во введённой строке самое короткое слово

program zadanie4;
var
  k,i:integer;
  s,s1,min:string;
begin
  writeln('введите строку');
  readln(s);
  s1:=s;
  min:= s;
  k:=length(s);
  while length(s)>0 do 
  begin
    k:=length(s);
    if s[i]=' ' then delete(s, i, k);
    if length(s)<length(min) then
    begin
      min:=s;
      delete(s1,1,length(s));
    end;
  end;
  writeln('samoe korotkoe slovo',min);
end.

begin
  var d := ' ,.!?-:;'.ToCharArray;
  var words := ReadLnString('Введите строку:').ToWords(d);
  var m := words.Select(word->word.Length).Min;
  WriteLnFormat('Сомое короткое слово "{0}" в длину {1}', words.Find(word->word.Length=m), m);
end.

begin
  var d := ' ,.!?-:;'.ToCharArray;
  var words := ReadLnString('Введите строку:').ToWords(d);
  var m := words.MinBy(i -> i.Count);
  WriteLnFormat('Сомое короткое слово "{0}" в длину {1}', m, m.Count);
end.