[BrYan]

добрый день\вечер
маленький вопросик: помогите перевести этот код на делфи консоль , если это возможно..?
условие задачи:составить программу для того чтоб сделать курсор невидимым. вывести сообщение.

Код:

uses crt,dos;
var Active:boolean;
    X,Y:integer;
    Rg:registers;
    Buttons:byte;
procedure SetRatio(x,y:byte);
begin
if Active then
begin
rg.ax:=$F;
rg.cx:=x;
rg.dx:=x;
Intr($3,rg);
end;end;
procedure msGOTO(x,y:integer);
Begin
if Active then
begin
rg.ax:=4;
rg.cx:=x;
rg.dx:=y;
Intr($33,rg);
end;end;
procedure Reset;
var b:boolean;
begin
rg.ax:=00;
Intr($33,rg);
Active:=(rg.bx=2) or(rg.bx=3);
SetRatio(8,16);
msGoto(80,22);
X:=1;
Y:=1;end;
procedure Show;
begin
if Active then
begin
rg.ax:=01;
Intr($33,rg);
end;end;
procedure HidE;
begin
if Active then
begin
rg.ax:=02;
Intr($33,rg);
end;
end;
Begin
Reset;
Show;
readln;
Hide;
readln;
end.

если можна то чем поскорее.