[lmikle]

Не надо ничего переводить. Надо пользоваться соотв. функциями Console API:

Код:

program ConsoleDemo;

{$APPTYPE CONSOLE}

procedure ShowConsoleCursor(bShow : Boolean);
var
	hOut : HANDLE;
	cursorInfo : CONSOLE_CURSOR_INFO;
begin
  hOut		:= GetStdHandle(STD_OUTPUT_HANDLE);

	cursorInfo.dwSize	:= 10;
	cursorInfo.bVisible 	:= bShow;
	SetConsoleCursorInfo( hOut,@cursorInfo);
end;

procedure gotoXY(X,Y : Integer);
var
	hOut : HANDLE;
  XY : COORD;
begin
  hOut		:= GetStdHandle(STD_OUTPUT_HANDLE);
  XY.X := X;
  XY.Y := Y;
  SetConsoleCursorPosition(hOut,XY);
end;  

begin
  ShowConsoleCursor(False);
  GotoXY(30,10);
  WriteLn('Press enter to close');
  ReadLn;
end.