Where's Waldo?

Onde está o cursor?

Existem duas funções para cumprir esse objectivo:
wherex, devolve um número inteiro correspondente à coluna;
wherey, ... linha.
Exemplo:
| . . .
| gotoxy(40, 10);
| write('texto');
| write(wherex, wherey);
| . . .

O output será texto4510, a partir da coluna 40, na linha 10, pois a escrita da string 'texto' fez o cursor avançar 5 colunas.
As duas funções wherex e wherey são disponibilizadas pela Unit CRT.

Sendo funções, podemos ainda armazenar os valores que produzem em variáveis. Exemplo:
| . . .
| Coluna := wherex;
| Linha := wherey;
| . . .