Матрицы в Delphi 7

[Sha1ne]

Всем привет.
Задание : Даны целые положительные числа M,N и набор из N чисел. Сформировать матрицу размера M*N , у которой в каждой строке содержатся все числа из исходного набора( в том же порядке).

Я создал 2 матрицы ,1я- 2х мерная , 2я- одна мерная.
В 2 вводим произвольные числа которые должны отобразится в 1 матрице.

Вопрос : Как это сделать?

Пробовал через StringGrid1.Rows[n]:=StringGrid1.Rows[n]; но что то не допёр как сделать чтобы копировался весь столбец и вписывался в другую матрицу.
Пробовал и приравнивать и другие операции но ничего не получается.

Код :

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const nmax=10;
type mas2=array[1..nmax, 1..nmax] of extended;
mas1 = array[1..nmax] of extended;
var
Form1: TForm1;
a:mas2;
b,c:mas1;
n,i,j: integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
n:=1 ;
Edit1.text:=intToStr(n);
StringGrid1.Colcount:=N+1;
StringGrid1.RowCount:= n+1;
StringGrid2.RowCount:= n+1;
StringGrid1.Cells[0,0]:= 'Массив А';
StringGrid2.Cells[0,0]:= 'Массив В';
for i:=1 to n do begin
StringGrid1.Cells[0,i]:='i='+inttoStr(i);
StringGrid1.cells[i,0]:='j='+inttoStr(i);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=Strtoint(edit1.Text);
StringGrid1.Colcount:=N+1;
StringGrid1.RowCount:= n+1;
StringGrid2.RowCount:= n+1;
for i:=1 to n do begin
StringGrid1.Cells[0,i]:='i='+inttoStr(i);
StringGrid1.cells[i,0]:='j='+inttoStr(i);
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
var s,x:extended; k:integer;
begin
for i:= 1 to n do
b[i]:=strtofloat(stringgrid2.cells[0,i]);
for i:= 1 to n do
begin
S:=0;
For j:=1 to n do
s:=s+b[i];
a[i,j]:=s;
end;

for i:=1 to n do
for j:=1 to n do
stringgrid1.cells[j,i]:=floattostr(a[i,j]);

end;
end.

Исходник :

http://programmersforum.ru/attachmen...1&d=1257618339