Одновременно вывод рисунка и ввод текста, Нарисовать рисунок и обеспечить ввод данных Опции

[natka]

Необходимо создать рисунок и определить попадает ли точка с введенными координатами в область рисунка. Как сделать так, чтобы в графическом режиме (рисунок на экране) можно было вывести сообщение и ввести данные с клавиатуры? Может поможет процедура SetViewPort - вывод рисунка в отдельное окно? Но до меня не доходит как ей пользоваться :-(
Помогите, кто раньше сталкивался... Плз

[klem4]

Как-то вот таким образом можешь попробовать обыграть

uses WinCrt, Graph;

var

  gd, gm, mx, my : integer;

  ch : char;

  s  : string;

  n  : integer;

begin

  gd := detect;
  initgraph(gd, gm, '');

  mx := getmaxx div 2;
  my := getmaxy div 2;

  n := 0;
  s := '';

  repeat

    ch := readkey;

    if ch in ['0'..'9'] then begin
      outtextxy(mx + n*10, my, ch);
      s := s + ch;
      inc(n);
    end;
  until ch = #13;

  val(s, n, gd);

  writeln('s = ', s);
  writeln('n = ', n);

  closegraph;
end.