program WordLen; var i : integer;{counter "for"} n : integer;{length of word} min : integer;{min of array} s : string; ok : Boolean; function WordLength(i : integer) : integer; begin n := 0; while (s[i] <> ' ') and (i <= length(s)) do begin inc(i); inc(n); end; wordlength := n; end; begin {Entering of string} writeln('Please, enter string'); readln(s); i := 1; n := 0; min := length(s); {Checking of words} ok := true; while (i <= length(s)) do begin if s[i] <> ' ' then begin if WordLength(i) < min then min := WordLength(i) else if WordLength(i) = min then ok := false; i := i + WordLength(i); end else i := i + 1; end; {Outputing of length} if ok then writeln(min) else writeln('There is no word with minimal length'); readln; end.