График изменения температуры за месяц

uses graphABC;
const n=31;
var a:array[1..n] of integer;
    x0,y0,max,i,x1:integer;
    mx,my:real;
begin
randomize;
for i:=1 to n do
 begin
  a[i]:=-10+random(21);
  if i=1 then max:=abs(a[1])
  else if abs(a[i])>max then max:=abs(a[i]);
 end; 
x0:=50;
y0:=windowheight div 2;
mx:=(windowwidth-x0-20)/n;
my:=(y0-20)/max;
line(0,y0,windowwidth,y0);
line(x0,0,x0,windowheight);
font.Size:=8;
for i:=0 to n-1 do
 begin
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3);
  textout(x0+round(i*mx)+5,y0+10,inttostr(i+1));
 end;
for i:=1 to max do 
 begin
  line(x0-3,y0-round(i*my),x0+3,y0-round(i*my));
  line(x0-3,y0+round(i*my),x0+3,y0+round(i*my));
  textout(x0-20,y0-round(i*my),inttostr(i));
  textout(x0-20,y0+round(i*my),inttostr(-i));
 end; 
font.Size:=10;
textout(windowwidth-35,y0-20,'День');
textout(x0+5,5,'t');
for i:=2 to n do
 begin
  if a[i]*a[i-1]<0 then
   begin
    x1:=round(mx*abs(a[i-1])/abs(a[i]-a[i-1]));
    if a[i-1]<0 then pen.Color:=clBlue
    else pen.Color:=clRed;
    line(x0+round((i-1)*mx),y0-round(a[i-1]*my),x0+round((i-1)*mx)+x1,y0);
    if a[i]<0 then pen.Color:=clBlue
    else pen.Color:=clRed;
    line(x0+round((i-1)*mx)+x1,y0,x0+round(i*mx),y0-round(a[i]*my));
   end;
  if a[i]*a[i-1]>0 then 
   begin
    if a[i-1]<0 then pen.Color:=clBlue
    else pen.Color:=clRed;
    line(x0+round((i-1)*mx),y0-round(a[i-1]*my),x0+round(i*mx),y0-round(a[i]*my));
   end;
  if a[i]*a[i-1]=0 then 
   begin 
    if a[i-1]<0 then pen.Color:=clBlue
    else pen.Color:=clRed;
    line(x0+round((i-1)*mx),y0-round(a[i-1]*my),x0+round(i*mx),y0-round(a[i]*my));
   end; 
 end;  
end.