Complete(I hope so..) draft of Pascal program.