Что нужно исправить чтобы программа решили задачу

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Math;
 
type
  TForm1 = class(TForm)
    Label2: TLabel;
    Edit1: TEdit;
    Memo1: TMemo;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure TForm1.Button1Click(Sender:TObject);
    procedure Button2Click(Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  a: array[1..31] of real;
  n: integer;
  i: integer;
  so: integer;
  sv: integer;
  summa, sred: real;
begin
  n := strtoint(Edit1.Text);
  so := 0;
  sv := 0;
  summa := 0;
  sred := 0;
  for i := 1 to n do
  begin
    summa := summa + a[i];
    sred := summa / n;
    label1.Caption := 'ñðåäíåìåñÿ÷íàÿ òåìïåðàòóðà= ' + floattostrF(sred, fffixed, 10, 1);
  end;
  for i := 1 to n do
  begin
    a[i] := strtofloat(memo1.Lines[i - 1]);
    if a[i] < 0 then
      so := so + 1
    else if a[i] > 10 then
      sv := sv + 1;
  end;
  label4.Caption := ' êîë-âî äíåé, êîãäà òåìïåðàòðà íèæå 0=' + inttostr(so);
  label5.Caption := ' êîë-âî äíåé, êîãäà òåìïåðàòóðà âûøå 10= ' + inttostr(sv);
end;

label1.Caption := 'Среднемесячная температура = ' + floattostrF(sred, fffixed, 10, 1);