Задача на нахождение средней температуры,холодных дней+сортировка по убыванию

const n=7;
var
  Form1: TForm1;
  t:array[1..n] of integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    sr:double;
begin
sr:=0;
for i:=1 to n do //пишем в массив значения из Мемо1, записанные в столбик
 begin
  t[i]:=strtoint(Memo1.Lines[i-1]);
  sr:=sr+t[i];
 end;
sr:=sr/n;
Label1.Caption:='Средняя температура='+format('%.2f',[sr]);
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
var i,k:integer;
begin
k:=0;
for i:=1 to n do
if t[i]<0 then inc(k);
Label2.Caption:='Количество дней с отрицательной температурой='+inttostr(k);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var i,j,x:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if t[i]>t[j] then
 begin
  x:=t[i];
  t[i]:=t[j];
  t[j]:=x;
 end;
for i:=1 to n do
Memo2.Lines.Add(inttostr(t[i]));
x:=0;
i:=1;
while(i<n)and(x=0)do
if t[i]=t[i+1] then x:=1
else inc(i);
if x=0 then showmessage('Одинаковых температур не было')
else showmessage('Одинаковые температуры были')
end;