Умножить матрицу на вектор

unit U2_MUZ;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  Trab = class(TForm)
    exit: TButton;
    M1: TStringGrid;
    str: TEdit;
    stolb: TEdit;
    zap: TButton;
    M2: TStringGrid;
    M3: TStringGrid;
    vyp: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure exitClick(Sender: TObject);
    procedure zapClick(Sender: TObject);
    procedure vypClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  rab: Trab;
  i,j:integer;
  sum, s:extended;
 
implementation
 
{$R *.dfm}
 
procedure Trab.exitClick(Sender: TObject);
begin
 application.Terminate;
end;
 
procedure Trab.zapClick(Sender: TObject);
var
i,j: integer;
begin
M1.RowCount:=StrToInt(str.Text);
M1.ColCount:=StrToInt(stolb.Text);
M2.RowCount:=StrToInt(stolb.Text);
 
  randomize;
   for j:=0 to StrToInt(str.Text)-1 do
     for i:=0 to StrToInt(stolb.Text)-1 do
      begin
       M1.Cells[i,j]:=FloatToStr(-100+Random(1000));
       end;
end;
 
procedure Trab.vypClick(Sender: TObject);
var
 i,j:integer;
begin
 for i:=0 to StrToInt(stolb.Text)-1 do
  begin
   sum:=0;
    for j:=0 to StrToInt(str.Text)-1 do
     begin
      sum:=sum+StrToFloat(M1.Cells[i,j]);
     end;
    M2.Cells[0,i]:=FloatToStr(sum);
    end;
 { for j:=0 to StrToInt(str.Text)-1 do
   begin
    S:=0;
    for i:=0 to strtoInt(stolb.Text)-1 do
     begin
      s:=s+(StrToFloat(M1.Cells[i,j]))*(StrToFloat(M2.Cells[j,i]));
     end;
   end; }
end;
 
end.