диаграмма

[ppupil]

помогите плиз в школе задали программу написать диагрмму изменения температуры в месяце(июле)то есть будет 31 линия
температуры вводим с клавиатуры

[A_r_r_a_y]

program temperatura;
uses crt,graph;
const
     n = 31;
var
   gd,gm,i,x1,y1,x2,y2,k: integer;
   t: array[1..n] of real;
   s: string;
begin
     clrscr;
     for i:=1 to n do
         begin
              write('input t',i,':');
              readln(t[i]);
         end;

     gd := 9;
     gm := 2;
     InitGraph(gd,gm,'C:\tp7\bgi\');
     setbkcolor(red);
     k := 10;
     x1 := 0;
     y1 := GetMaxY;
     for i:=1 to n do
         begin
              x2 := x1 + round(GetMaxX / n);
              y2 := GetMaxY - round(t[i]*k);
              Line(x1,y1,x2,y2);
              str(t[i]:0:2,s);
              outtextxy(x2,y2,s);
              x1 := x2;
              y1 := y2;
         end;

     readkey;
end.

[ppupil]

я написал эту программу у себя но у меня чать диаграммы вверху а часть вообще не видна может это из-за моего монитора(1920-1280)помогите пожалуйста сделать нормально
зы A_r_r_a_y большое спасибо