[Moonlight]

Задание: Первый ряд матрицы А заминить последним столбиком матрици В и вывести ответ

проблема в том что ето нужно зделать в форме...((((
с использиванием StringGrid
тоисть нужно зделать 3 панели StringGrid1, StringGrid2, StringGrid3 и Edit для ввода количества столбцов и рядков, которые =

StringGrid1- матрица(2-ох мерный масив) А
StringGrid2 - матрица(2-ох мерный масив) В
StringGrid3 - ответ
и кнопку Button1- обчислить

зарание спасибо!))


есть код для консоли, но всунуть в форму немогу(((((


program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var a: array[1..10,1..10] of integer;
b: array[1..10,1..10] of integer;

i,j,c,k,n : integer;

begin
writeln (' BBeDiTe KiJI6kiCT6 eJIeMeHTiB P9DKa '); readln(n);


writeln (' Enter matrix A');
for i:= 1 to n do
for j:= 1 to n do begin
write('a[',i,',',j,']=');
readln (a[i,j]);
end;
writeln (' Enter matrix B');
for i:= 1 to n do
for j:= 1 to n do begin
write('b[',i,',',j,']=');
readln (b[i,j]);
end;
for i:=1 to n do
a[1,i]:= b[n,i];

for i:=1 to n do
for j:=1 to n do begin
writeln (a[i,j])
end;
Readln
end.