While..Do
Оператор цикла While содержит выражение, которое управляет повторением выполнения отдельного или составного оператора.
Объявление
While выражение Do оператор
Замечания
Оператор после Do будет выполняться до тех пор, пока булево выражение является истинным (True).
Выражение оценивается до выполнения оператора, так что если булево выражение с самого начала было ложным (False), то оператор не будет выполнен ни разу. (В отличие от оператора цикла Repeat)
Пример
{ Операторы While }
While Ch = ' ' Do Ch:=GetChar;
While Not EOF(InFile) Do
Begin
ReadLn(InFile, Line);
WriteLn(OutFile, Line);
Inc(LineCount);
End;