Написать программу для определения расхода угля тепловой станцией

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Buttons;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
      procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 P : array [0..7] of integer;
  k,i:Integer;
implementation
 
{$R *.dfm}
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  k:=0;
 
for i:= 0 to 6 do
    P[i]:=Random(20);
    for i:= 0 to 6 do
    if P[i]<(-10) then k:=k+17
    else  if (P[i]>=10) and (P[i]<=0) then k:=k+15
    else   k:=k+10;
    Edit1.Text:=IntToStr(k);
        end;
 
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Edit1.Clear;
end;
 
end.

var
  Form1: TForm1;
  const n=7;
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var i:byte;
begin
with StringGrid1 do
 begin
  fixedrows:=1;
  fixedcols:=1;
  colcount:=n+1;
  rowcount:=3;
  for i:=1 to n do
  cells[i,0]:=inttostr(i);
  cells[0,0]:='День';
  cells[0,1]:='Температура';
  cells[0,2]:='Уголь';
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var p:array[1..n] of integer;
    i,k,r,s:integer;
begin
randomize;
for i:=1 to n do
 begin
  p[i]:=-15+random(20);
  StringGrid1.Cells[i,1]:=inttostr(p[i]);
 end;
k:=strtoint(Edit1.Text);
s:=0;
for i:=1 to n do
 begin
  if p[i]>0 then r:=k
  else if p[i]>=-10 then r:=k+5
  else r:=k+12;
  StringGrid1.Cells[i,2]:=inttostr(r);
  s:=s+r;
 end;
Label1.Caption:='Общий расход угля за неделю='+inttostr(s)  
end;