Составить матрицу из вектора

type mas=array of real;
     mtr=array of array of real;
var
  Form1: TForm1;
  vec:mas;
  matr:mtr;
  rv,mr,mc:integer;
implementation
 
{$R *.dfm}
 
procedure arraytomatrcol(a:mas;k,m,n:integer;b:mtr);
var i,j,q:integer;
begin
q:=-1;
for i:=0 to m-1 do
for j:=0 to n-1 do
 begin
  inc(q);
  if q<k then  b[i,j]:=a[q]
  else b[i,j]:=0;
 end;
end;  
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
rv:=strtoint(Edit1.Text); //размер вектора
setlength(vec,rv);
stringgrid1.ColCount:=rv;
for i:=0 to rv-1 do
 begin
  vec[i]:=10*random;
  stringgrid1.Cells[i,0]:=floattostrF(vec[i],ffFixed,5,2);
 end;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
mr:=strtoint(Edit2.Text);//кол строк матрицы
mc:=strtoint(Edit3.Text);//кол столбцов матрицы
setlength(matr,mr,mc);
stringgrid2.ColCount:=mc;
stringgrid2.RowCount:=mr;
arraytomatrcol(vec,rv,mr,mc,matr);
for i:=0 to mr-1 do
for j:=0 to mc-1 do
stringgrid2.Cells[j,i]:=floattostrF(matr[i,j],ffFixed,5,2)
end;