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

program tmp;
uses crt;
var
   st,str,max_str:string;
   i,len,max:integer;
begin
clrscr;
write('vvedite stroku: ');readln(st);
len:=0;
max:=0;
str:='';
max_str:='';
for i:=1 to length(st) do
if st[i]<> ' ' then begin
                    inc(len);
                    str:=str+st[i];
                    end
               else begin
                    if len>max then begin
                                    max:=len;
                                    max_str:=str;
                                    end;
                    len:=0;
                    str:='';
                    end;
if max_str='' then writeln('max: ',str)
               else writeln('max: ',max_str);
readkey;
end.

uses
  crt;
const
  dividers=[' ',',','.',';',':','-','=','+'];{äîïèñàòü íóæíûå}
var
  s,max,temp:string;
  i:integer;
begin
  clrscr;
  writeln('Ââåäèòå ñòðîêó...');
  readln(s);
  temp:='';
  max:='';
  for i:=1 to Length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if ((s[i] in dividers) or (i=length(s))) and (temp<>'') then
    begin
      if Length(temp)>Length(max) then
        max:=temp;
      temp:=''
    end;
  end;
  writeln('Ñàìîå äëèííîå ñëîâî: ',max,'. Â íåì áóêâ: ',Length(max))
end.