задача на строки найти самое короткое слово

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

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

program z10_4;
uses crt;
var x,z,z1,z2,y:real;
i,n:integer;
begin
clrscr;
x:=-2;n:=1;
while x<=3.5 do
begin
y:=x/(2*n);
z:=x/2;
for n:=2 to 8 do
z1:=z+y*x;
z1:=z1*(x/2);
n:=1;
y:=sqr(x)/(4*n);
z2:=0;
for n:=1 to 6 do
z2:=z2+y*sqr(x);
z2:=z2*(sqr(x)+1)/3;
z:=z1+z2;
writeln('z(',x:2:2,')=',z:2:2);
x:=x+0.5;
end;
end.