Прокомментировать код

uses crt;
var s,sl,smax: string;
    i,dmax: integer;
begin
write('Введите строку ');
readln(s);
s:=s+' '; sl:='';dmax:=0;
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i]
       else
       begin
       if length(sl)>dmax then
          begin
          dmax:=length(sl);
          smax:=sl;
          end;
       sl:='';
       end;
writeln ('Самое длинное слово "',smax,'" длиной в ',dmax,' символов');
end.

uses crt;
 var s,sl,smax: string;                //переменные для текста, слова, максимального слова
 i,dmax: integer;                      //переменные для счетчика, для длины максимального слова
 begin
 write('Введите строку ');            //запрос и считывание строки
 readln(s);
 s:=s+' '; sl:='';dmax:=0;            //прибавляем к строке пробел, чтобы последнее слово учитывалось при анализе
                                       //изначально слово пусто
                                       //длина максимального слова изначально =0
 for i:=1 to length(s) do              //перебираем символы от 1 до последнего
 if s[i]<>' ' then sl:=sl+s[i]         //если символ не пробел то приклеить его к слову
 else                                  //иначе
 begin
 if length(sl)>dmax then                //если длина найденного слова больше длины максимального
 begin
 dmax:=length(sl);                      //меняем длину на новую
 smax:=sl;                              //меняем максимальное слово на новое
 end;
 sl:='';                                //переменную слова очистить
 end;
 writeln ('Самое длинное слово "',smax,'" длиной в ',dmax,' символов');  //вывод
 end.