Помогите исправить код

[lider24816]

Дана квадратная матрица порядка N. Вычислить среднее арифметическое положительных элементов матрицы, стоящих выше главной диагонали.

Var
a,b,c,d,e,f:integer;
Begin
a:=strtoint(combobox1.Text);
StringGrid1.ColCount:=a;
StringGrid1.RowCount:=a;
f:=0;
For b:=0 to a-1 do begin
For c:=0 to a-1 do begin
d:=-99 + Random(199);
StringGrid1.Cells[b,c]:=inttostr(d);
if b=c then begin
e:=d;
if e>f then
f:=e;
end;
end;
end;
label2.caption:=inttostr(f);
end;
end.

[Sazary]

Код заключайте в теги CODE.

procedure TForm1.Button1Click(Sender: TObject);
Var
a,b,c,d,e,f:integer;
Begin
a:=strtoint(combobox1.Text);
StringGrid1.ColCount:=a;
StringGrid1.RowCount:=a;
f:=0;
e := 0;
For b:=0 to a-1 do
 begin
 For c:=0 to a-1 do
  begin
  d:=-99 + Random(199);
  StringGrid1.Cells[b,c]:=inttostr(d);
  if (b>c) and (d>0) then
   begin
   f := f + d;
   inc(e);
   end;
  end;
 end;

label2.caption:=floattostr(f/e);
end;

[lider24816]

Спасибо огромное))