Среднее арифметическое нечётных столбцов матрицы

edit1.text =: inttostr(переменная_с_результатом);

edit1.text := edit1.text+' '+<значение>;

edit1.text := edit1.text+' Значение '+i+' столбца '+<значение>;

memo1.lines.add(' Значение '+i+' столбца '+<значение>)

var
  i, j, n, m : integer;
  Summ, Av : real;
  Str : string;
begin
  Str := '';
  for i := 0 to m - 1 do
    if i mod 2 = 0 then
    begin
      Summ := 0;
      for j := 0 to n - 1 do
        Summ := Summ + Arr[i, j];
      Av := Summ / n;
      Str := Str + FloatToStr(Av) + '  ';
    end;
  Edit1.Text := Str;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    strngrd1: TStringGrid;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
const
  n=4;
  m=4 ;
var mymass : array[0..100,0..100]of integer ;
 i,j,sum:Integer;
 p:Real;
begin {так как я взял       stringgrid размером 5х5}
for I:=0 to n do
for j:=0 to m do
mymass[i,j]:=strtoint(strngrd1.Cells[i,j]); //считывание элементов ну или ввод массива в ручную
FOR j:= 0 to m DO
 begin
  sum:=0;
  if j mod 2<>0 then
  begin
  FOR i:=  0 to n DO
   sum:=sum+mymass[i,j];
 
   P:=sum/m ;
    //что дальше ? если я всё правильно сделал ?) как теперь вывод сделать
 
  end;
 end;
 
end;
 
end.

var
  i, j, n, m : integer;
  Summ, Av : real;
  Str : string;
begin
  // Обнуляем результирующую строку
  Str := '';
  // Проходим по всем столбцам
  for i := 0 to m - 1 do
    // Если столбец четный
    if i mod 2 = 0 then
    begin
      // Обннуляем его сумму
      Summ := 0;
      // Считаем сумму столбца
      for j := 0 to n - 1 do
        Summ := Summ + StrToInt(StringGrid.Cells[i, j]);
      // Получаем его среднее арифметическое
      Av := Summ / n;
      // Добавляем результат к результирующей строке
      Str := Str + FloatToStr(Av) + '  ';
    end;
  // Выводим результат в Edit
  Edit1.Text := Str;
end;