program Billard1; uses mSum, mKugel in 'mKugel.pas'; var derBildschirm : Bildschirm; dieMaus : Maus; meineKugel : Kugel; begin // Initialisierung derBildschirm := Bildschirm.init; dieMaus := Maus.init; meineKugel := Kugel.init; // Aktionsteil repeat meineKugel.bewege until dieMaus.istGedrueckt; // Aufräumen meineKugel.gibFrei; dieMaus.gibFrei; derBildschirm.gibFrei end.