Стараюсь придерживаться везде одного стиля (см. первый пост). Там один блок на два разбить не проблема. Выше -- как я бы переписал Ваш код один в один.

> -- Berserker писал(а):
> Если я не ошибаюсь, по той же причине из Оберона убрали паскалевский IF ... THEN ...; и заменили на блочный IF THEN ELSE END.Составной оператор (операторные скобки) BEGIN ... END "заменён" на StatementSequence = Statement {; Statement}.
Как следствие изменились IF и остальные structured statemens:
IF expr THEN statement [ELSE statement] заменилось на IF expr THEN StatementSequence [ELSE StatementSequence] END