Задача о шести подряд идущих единицах.

[llTibegll]

Сообщение от Serge_Bliznykov

это переменная логического типа (логический, или ещё говорят "булевый" тип - это тип данных, который может принмать только два значения - ИСТИНА или ЛОЖЬ (TRUE или FALSE)
имя у этой переменной выбрано так, чтобы можно было догадаться, для чего она нужна:
Is6DigitFound - в вольном перевод это "Найдено6цифр"
Это своеобразный флажок - который мы устанавливаем в ИСТИНУ, если нашли шесть единиц подряд.
он же проверяется в цикле (в операторе UNTIL), поэтому, если мы нашли 6 единиц - то всё, выходим из цикла.
и последнее, по этой переменной мы решаем, какое сообщение выдавать, Yes или No

Спасибо вам огромнейшее. Вы очень помогли мне.

[DeKot]

Еще один пример - "киньте" на форму Edit и Button.
Вводите в Edit число и жмите Button :

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    count: integer;
    str: string;
begin
   count:= 0;
   str:= Form1.Edit1.Text;
   if Length(str)<> 0 then
   begin
     for i:= 0 to (Length(str) - 1) do
     begin
       if str[i] = '1' then Inc(count)
       else count:= 0;
       if count = 6 then
       begin
         Form1.Caption:= 'Есть шесть "1" подряд';
         Exit;
       end
       else   Form1.Caption:= 'Нет шести "1" подряд';
     end;
   end;
end;