pomoc s programom v PASCALE

program graf;
uses crt,graph;
var gd,gm,i,celkova : integer;
    subor: text;
    teploty: array[1..30] of integer;
begin
     clrscr;
     randomize;
     for i:=1 to 30 do begin
         teploty[i]:=random(20)+15;
         celkova:=celkova+teploty[i];
         end;
     {Tato cast je len na overenie, mozes zmazat }
     write('Vygenerovane teploty : ');
     for i:=1 to 30 do write(teploty[i],', ');
     writeln;
     writeln('Priemerna teplota bola ',celkova/30:3:2);
     readkey;
     {odtadialto sa vykrasluje, nemazat :-P }
     detectgraph(gd,gm);
     initgraph(gd,gm,'..\BGI');
     line(50,300,500,300);

     for i:=1 to 30 do begin
         if (teploty[i] < celkova/30) then begin
            setcolor(blue);
            line(15*i+50,300,15*i+50,300-teploty[i]*5);
            end;
         if (teploty[i] > celkova/30) then begin
            setcolor(red);
            line(15*i+50,300,15*i+50,300-teploty[i]*5);
            end;
         if (teploty[i] = celkova/30) then begin
            setcolor(green);
            line(15*i+50,300,15*i+50,300-teploty[i]*5);
            end;

     end;



     readkey;
     closegraph;
end.