Найти и вывести на экран слово максимальной длины

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              //цикл перебора всех символов строки
    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.

 if s='.' then
writeln ('Самое длинное слово "',smax,'" длиной в ',dmax,' символов');