Матрица: найти сумму элементов k-го столбца матрицы.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
 
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  var m, n, i, j, min: Integer;
a,b:array[1..10,1..10] of Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
m:=StrToInt(Edit2.Text);
StringGrid1.ColCount:=n;
StringGrid1.RowCount:=m;
 
Randomize;
For i:=1 to n do
For j:=1 to m do
begin
a[i,j]:=Random(10);
StringGrid1.Cells[i-1,j-1]:=IntToStr(a[i,j]);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var key, sum:integer   ;
begin
key:=strtoint(Edit3.text);
n:=StrToInt(Edit1.Text);
m:=StrToInt(Edit2.Text);
sum:=1;
if key>n then showmessage('K столбец не существует!')
else
 
for j:=1 to m do
sum:=sum+A[key+1,j+1]  ;
 
 
edit4.Text:=inttostr(sum);
 
  end;
end.