Строка: Найти длину самого короткого слова и самого длинного слова.

uses crt;
var min, max, len, i : integer;
    s, str, max_str, min_str : string;
begin
clrscr;
readln(s); // читаем строку
s:=s+' ';
max := 0; // обнуляем переменную
min := length(s); // длина строки
len := 0; // обнуляем переменную
max_str := ''; // обнуляем переменную
min_str := ''; // обнуляем переменную
str := ''; // обнуляем переменную
for i:=1 to length(s) do // циклом проходимся по всей строке - от 1-го символа и до последнего
        if s[i]<>' ' then begin // если символ не является пробелом, то:
                inc(len); // увеличиваем длину слова на 1
                str := str + s[i]; // присваеваем текущий символ строке, по одному символу будет собираться слово полностью
        end else begin
                if len>max then begin // если длина последнего найденного слова больше предыдущего (максимального)
                        max := len; // присваеваем длину этого слова
                        max_str := str; // а это само слово которое собирали по одному символу
                end;
                if len<min then begin // если длина последнего найденного слова меньше предыдущего (минимального)
                        min := len; // длина слова
                        min_str := str; // само слово
                end;
                len := 0; // обнуляем для того чтобы искать длину следующего слова
                str := ''; // обнуляем чтоб записывать следующее найденное слово
        end;
writeln('max = ', max_str); // вывод
writeln('min = ', min_str); // вывод
readln; // а ето будет ожидать нажатия Enter
end.