Source position: line 0
procedure PrintCoord(
const x: TfpgCoord;
const y: TfpgCoord
);procedure PrintCoord(
const pt: TPoint
);