if (STAKAN=0) or (ZAKUSKA=0) then begin // если стакан пуст или нет закуски, то начать следующие операции STAKAN:=1; // обновить ZAKUSKA:=1; // доложить огурцов в тарелку end;