Цитата
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.
Читай вопрос повнимательней :(
Во-первых - на него уже ответили, хоть и пространно
Во-вторых - написал бы тогда уж перевод в текстовые координаты, т.к. хоть это не указывается явно, но подразумевается, что используется стандартный инпут, реализованный в паскале в виде ReadLn;