Program Example7;
uses Crt;

{ Program to demonstrate the WhereX and WhereY functions. }

begin
  Writeln('Cursor postion: X=', WhereX, ' Y=', WhereY);
end.
{http://www.freepascal.org/docs-html/rtl/crt/wherex.html}