[Rokuell]

Ты используешь переменную от другого цикла.
Может быть вместо

Код:

       for l:=1 to Length(d) do
        begin
         if StrToInt(d[i])=1 then dd:=dd+1;
         if dd<dmin then dmin:=dd;
         dd:=0;
        end;

Надо

Код:

       for l:=1 to Length(d) do // ведь здесь переменная l
        begin
         if StrToInt(d[l])=1 then dd:=dd+1;
         if dd<dmin then dmin:=dd;
         dd:=0;
        end;