Komisches Sprachkonstrukt - zwei Rümpfe in Prozedur

[alzaimar]

Zitat von gammatester:

Da ist doch nichts komisches dran. Wenn man will, kann man um jede Anweisung ein begin ... end setzen. Das sind keine zwei Rümpfe sondern compound statements.

Nein.

Zitat von Luckie:

Was er gemacht hat, ist seinen Code noch mals durch Blöcke zu gliedern. Wobei es auch eine zusätzliche Leerzeile getan hätte.

Auch nich.
Die Syntax einer Prozedur (Kopf, Deklaration, Rumpf) lässt doppelte Begin/End-Blöcke im Prozedurrumpf nicht zu.

Oder anders gefragt:
Bei wem kompiliert das:

Delphi-Quellcode:

Program Project2;

{$APPTYPE CONSOLE}

Procedure Outer;

Procedure Inner;
  Begin
    Writeln('Inner');
  End;

Begin
  Inner;
End;
// Zweiter Block
Begin
  Inner;
End;

Begin
  Outer;
End.

Bei mir jedenfalls nicht.
Ich tippe auch auf ein Fragment mit fehlendem (äußerem) Prozedurkopf.