Оператор цикла с предусловием (начинающийся с ключевого сло-
        ва while) содержит в себе выражение,  которое управляет повторным
        выполнением  оператора (который может быть составным оператором).

                      ┌─────┐   ┌─────────┐   ┌──┐   ┌────────┐
         оператор ───>│while├──>│выражение├──>│do├──>│оператор├──>
         while        └─────┘   └─────────┘   └──┘   └────────┘

             Выражение, с помощью которого осуществляется управление пов-
        торением оператора,  должно иметь булевский тип.  Вычисление  его
        производится  до  того,  как  внутренний оператор будет выполнен.
        Внутренний оператор выполнятся повторно до тех пор,  пока выраже-
        ние принимает значение Тruе.  Если выражение с самого начала при-
        нимает значение False, то оператор, содержащийся внутри оператора
        цикла с предусловием, не выполняется.

             Примерами операторов цикла с предусловием могут служить сле-
        дующие операторы:

             while Data[I] <> X do I := I + 1;

             While I > 0 do
             begin
               if Odd(I) then Z := Z * X;
               I := I div 2;
               X := Sqr(X);
             end;

             while not Eof(InFile) do
             begin
               Readln(InFile,Line);
               Process(Line);
             end;