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.