Pascal/Turbo Pascal - Hacer desaparecer el cursor

Hola, Necesito sber como hago para que el cursor titileante desaparezca, ya que para los menues, es muy molesto.
Gracias.

uses crt,dos;
procedure apagar;
var r:registers;
begin
r.ah:=$1;
r.ch:=32;
intr($10,r);
end;
begin
apagar;
readkey;
end.

otra forma menos sofisticada es colocar el cursor en la esquina inferior derecha

gotoxy(80,25);
readkey;