задача в Delphi7 с матрицей

[Славик42]

задача по программированию в Delphi7 с матрицей

[Stilet]

for i:=1 to n do begin
 a[i,1]:=i;
 for j:=2 to n do begin
  sum:=0;for k:=j-1 downto 1 do sum:=sum+a[i,k];
  a[i,j]:=sum;
 end;
end;

Идея понятна? Не проверял.

[Славик42]

не непонятна.. я вообще низнаю как её решать

[Stilet]

Ну хоть что-то ты сам напиши. Ввод массива в консольном приложении хотя бы.

[Славик42]

procedure TForm1.sChange(Sender: TObject);
begin
z.RowCount:=s.Value;
z.ColCount:=s.Value;
end;

procedure TForm1.wClick(Sender: TObject);
var
a: array[1..10,1..10] of integer;
i, j, k, n, sum: integer;
begin
n:=s.Value;
for i:=1 to n do
for j:=1 to n do
if j=1 then a[i,j]:=i
else
begin
sum:=0;
for k:=j-1 downto 1 do
sum:=sum+a[i,k];
a[i,j]:=sum;
end;
\
}-подскажите что тут надо дописать чтобы работала
/
z.Cells[i,j]:=IntToStr(a[i,j]);
end;