type message_procedure is access procedure (m: in string := "
Error!"
);
Man erkennt daraus, daß nur die Parameter spezifiziert werden.
Es kann dann jedes Unterprogramm, das mit diesen Parametern konform ist,
tatsächlich der Pointer-Variablen zugewiesen werden.
Näheres in Kapitel