работа с текстом в графическом режиме Опции

[18192123]

Вот такая задачка:
В верхней левой и в правой нижней части экрана произволь-ным цветом создайте две прямоугольных области с одной общей точкой. Залейте их разным цветом и выведите внутри каждой области, соответственно, одно из следующих сообще-ний: «Question 1» и «Question 2»

У меня затруднение с тем, чтобы текст не выходил за пределы прямоугольников...

 Uses Crt, Graph;
 const x = 320; y = 175;
 var
    DriverVar, ModeVar, a, b, a_, b_: integer;

 begin
 clrscr;
      Writeln ('vvedite odni razmeri');
      readln (a);
      readln (b);
      Writeln ('teperi sledyuchie');
      readln (a_);
      readln (b_);

   DriverVar := Detect;
   InitGraph (DriverVar, ModeVar,'');

      SetBkColor(13);
      setcolor(15);
      bar(x+b,y+a,x,y);
      SetTextStyle(0,1,1);
      OutTextXY( (x + b) div 2, (y + a) div 2, 'Question 1');
      setfillstyle(7,15);
      bar(x,y,x-a_,y-b_);
      SetTextStyle(0,0,2);
      OutTextXY( (x - a_) div 2, (y - b_) div 2, 'Question 2');

         readln;

closegraph;
end.

[T i m e]

Я смотрю, в этой теме сплошные кошки на аватарах...

Да уж кошачее собрание... Прикольно.
TarasBer, а тебя прога при маленьких значениях всё равно текст за пределы выкидывает... Ну там конечно можно ещё стили менять текста (там ведь в разных стилях размер бывает совсем маленький) и меняя размер можно ущемлять его в прямоугольники или если нельзя ущемить вообще не выводить... Но я сомневаюсь что ему такая намудрённость нужна...