Its not Pascal, its AmigaOberon;)

I forgot to show a possible output of this program:

SCREEN "OWB" RadeonX800: 24Bit 1920 x 1080 [68.625 kHz, 61 Hz] (0,0,2500x1080x8):
WINDOW "OWB: MorphZone" (0,22,1468x1058)