Как передвинуть курсор Опции

[Гия]

Такая задача:
         
                    ......  
     outtext('Vvedite chislo ot 0 do 256');
                    .....
как сделать так чтобы я смог ввести число в любом месте эрана, например мне нужно после слов 'vvedite chislo ot 1 do 256'.

заранее спасиб.

[ozzy]

Uses Graph;
Var
grDriver : Integer;
grMode   : Integer;
ErrCode  : Integer;
s        : String;
sx,sy    : Integer;
Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, 'c:bpbgi');
ErrCode:=GraphResult;
If ErrCode = grOk Then
 Begin
  { Графика }
  s:='Enter something here:';
  { Запомнили текущее CP }
  sx:=GetX;
  sy:=GetY;
  OutText(s);
  { Подсчитали новое значение CP }
  sx:=sx+TextWidth(s);
  sy:=sy+TextHeight(s);
  { Переместили CP }
  MoveTo(sx,sy);
  { Проверка перемещения указателя }
  PutPixel(sx,sy,Red);
  ReadLn;
  CloseGraph;
 End
Else WriteLn('Ошибка инициализации графики:', GraphErrorMsg(ErrCode));
End.