Определить, сколько раз температура была выше средней за декаду

programz_array;
var
a:array[1..10] of integer;
n,i,j,max,min,m,temp,k:byte;
sum,sr:real;
begin
writeln('vveditekol-votemperatur');
readln(n);
writeln('vveditetemperaturi');
for i:=1 to n do
begin
writeln(i, ‘a=‘);
readln(a, i);
end;
writeln('dannayadekada');
for i := 1 to n do
begin
sum:=sum + a(i);
inc(m); 
end;
sr:= sum/m;
writeln('srednznachenie = ', sr:2);
for i:=1 to n do
if a(i)>sr then 
inc (i);
writeln('temperaturabilavishesredney ',i, ' raza');
readln;
end.

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Bevel1: TBevel;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var a: array of real;
    n,i,j,max,min,m,temp,k: integer;
    sum,sr: real;
    SList: TStringList;
begin
  //Создаем стринглист и сгружаем в него содержимое Мемо:
  SList:=TStringList.Create();
  SList.Text:=Memo1.Lines.Text;
 
  n:= SList.Count; //количество строк (данных с t)
  SetLength (a, n); //задаем длинну массива
 
  //сгружаем все данные из СтрингЛиста в массив:
  for i:=0 to n-1 do
    begin
      a[i]:= StrToFloat(SList[i])
    end;
 
  //далее работаем с уже имеющимся массивом а:
  //находим среднее значение:
  sum:=0; //обнуляем сумму элементов массива
  for i:=0 to n-1 do
    begin
      sum:=sum+a[i];
    end;
  sr:=sum/n;
  //определяем, сколько раз температура превышает среднее значение:
  m:=0; //количество превышенй
  for i:=0 to n-1 do
    begin
      if sr<a[i] then inc(m);
    end;
  //выводим результаты на экран:
  Label1.Caption:='Анализируем температуру за:  '+IntToStr(n)+' дней';
  Label2.Caption:='Средняя температура:  '+FloatToStrF(sr,ffFixed,6,2)+' °C';
  Label3.Caption:='Превышение было:  '+IntToStr(m)+' раз';
 
end;
 
end.