Вывести самое длинное слово в предложении

program string_55;
uses crt;
var s,s1,s2,s3:string;
    sk,sd:string;
    len,k,d,i,ik,id,f:byte;
begin
clrscr;
       writeln('Введите строку из русских слов, отделеннvх пробелами : ');
       readln(s);
 
       if (pos(',',s)>0) then{ удалим запятые и точки}
       delete(s,pos(',',s),1);
       if (pos('.',s)>0) then
       delete(s,pos('.',s),1);
 
 
       s:=s+' ';{добавляем к ней пробел}
       s2:=s;{запомним начальную строку}
 
       while pos('  ',s)>0 do    {удалим лишние пробелы, в кавычках 2 пробела}
             delete(s,pos('  ',s),1);{в кавsчках 2 пробела}
       if s[1]=' ' then delete(s,1,1);{1 удаляем}
       sd:='';{длинное слово, пока его нет}
       d:=0;{длина длинного слова}
       while pos(' ',s)>0 do{пока есть пробелы}
       begin
       len:=pos(' ',s)-1;{длина очередного слова}
       s1:=copy(s,1,len);{само слово}
       if len>d then{если больше предыдущих}
       begin
            sd:=s1; {запомним}
            d:=len; {его длина}
       end;
       delete(s,1,pos(' ',s));{удаляем проверенное слово, следующее первое}
       end;
 
       writeln('Самое длинное слово:');
       s1:=copy(s2,1,pos(' ',s2)-1);{смотрим слова по порядку}
       if length(s1)=d then write(s1);{если длина равна длинному, выводим}
       delete(s2,1,pos(' ',s2));{удаляем просмотренное}
 
readln;
end.

uses crt;
var s,t,last:string;
    min_len,len,i:integer;
 
begin
     write('введите строку из русских букв : ');
     readln(s);
 
     min_len:=1000;
     len:=length(s);
     i:=1;
 
     while (i<len) and (i<>len-1) and (s[i]<>'.') do
     begin
           {обрабатываем пробелы и прочую фигню}
           while (s[i]=' ') or (s[i]=',') do Inc(i);
           {мы нашли слово}
           t := '';
    
    while (s[i]<>' ') and (s[i]<>',') and (s[i]<>'.') and (i<=len) do
    begin
         t := t + s[i];
         Inc(i);
    end;
 
    if min_len > length(t) then
    begin
         min_len := length(t);
         last:=t;
    end;
    end;
 
    WriteLn('Самое короткое слово : ',last);
ReadLn;
end.

var s,t,last:string;
    max_len,len,i:integer;
 
begin
     write('введите строку из русских букв : ');
     readln(s);
 
     max_len:=1;
     len:=length(s);
     i:=1;
 
     while (i<len) and (i<>len-1) and (s[i]<>'.') do
     begin
           {обрабатываем пробелы и прочую фигню}
           while (s[i]=' ') or (s[i]=',') do Inc(i);
           {мы нашли слово}
           t := '';
 
    while (s[i]<>' ') and (s[i]<>',') and (s[i]<>'.') and (i<=len) do
    begin
         t := t + s[i];
         Inc(i);
    end;
 
    if max_len < length(t) then
    begin
         max_len := length(t);
         last:=t;
    end;
    end;
 
    WriteLn('Самое длинное слово слово : ',last);
ReadLn;
end.