Найти средне-арифмитическое каждого столбца и занести в отдельный массив (QBasik)

12345678910111213141516171819202122procedure TForm2.Button2Click (Sender: TObject); vari, j, k: integer; max: integer; begin with StringGrid1 dofor j: =0 to ColCount — 1 do begin k: =0; max: =StrToInt (Cells[j,0]); for i: =0 to RowCount — 1 do begin if StrToInt (Cells[j,i]) > max then begin max: =StrToInt (Cells[j,i]); k: =i; end; end; StringGrid2.Cells[j,k]: ='0'; end; end;