Перемножение матриц (обработка двумерных массивов)

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
  procedure FillMass;
  procedure umnMass;
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  FirstArray: array[0..20] of byte;
  SecondArray: array[0..20] of byte;
  ResultArray: array[0..20] of byte;
 
implementation
 
{$R *.dfm}
 
{ TForm1 }
 
procedure TForm1.FillMass;
 var i: integer;
begin
randomize;
for i:=0 to 20 do
  begin
   FirstArray[i]:= random(3)+1;
   SecondArray[i]:= random(3)+1;
  end;
end;
 
procedure TForm1.umnMass;
var i: integer;
begin
for i:=0 to 20 do
 ResultArray[i]:=FirstArray[i]*SecondArray[i];
end;
 
end.