Pascalban hogyan programozzak faliórát?

Itt van betűrendben, hogy én miket használ(tam)nék hozzá:

CloseGraph, Cos, DecodeTime, FillEllipse, for..to..do, Graph, GraphResult, Halt, if..then..else, InitGraph, KeyPressed, LineTo, MoveTo, Rectangle, repeat..until, SetColor, SetFillStyle, SetLineStyle Sin, SysUtils, Trunc, WinCrt, WriteLn

Elnézést, a Delay kimaradt.

Így néz ki: [link]

Volt egy pici időm: [link]

Kedves Kérdező legalább kezdj bele, láthatod nem sok idő megírni ! Így pofásabban is csak 100 sor körül van, de még lehetne egyszerűsíteni.