В заданном предложении найти самое короткое и самое длинное слова

var
    s, t, max, min :string;
    i :longint;
begin
    readln(s);
    s := s + ' ';
 
    for i := 1 to length(s) do begin
    
        if (s[i] in ['.', ',', ' ', '!', '?']) then begin
            
            if (t <> '') and ((length(max) < length(t)) or (max = '')) then max := t;
            if (t <> '') and ((length(min) > length(t)) or (min = '')) then min := t;
            t := '';
        end
        else
            t := t + s[i];
    end;
 
    writeln(min, ' ', max);
end.

var
  s, k, max, min: string;
  i: longint;
 
begin
  readln(s);
  s := s + ' ';
  
  for i := 1 to length(s) do 
  begin
    
    if (s[i] in ['.', ',', ' ', '!', '?']) then 
    begin
      if (k <> '') and ((length(max) < length(k)) or (max = '')) then 
        max := k;
      if (k <> '') and ((length(min) > length(k)) or (min = '')) then 
        min := k;
      k := '';
    end
    else
      k := k + s[i];
  end;
  
  writeln('Самое короткое: ', min, ' Самое длинное: ', max);
end.