Заполнение массива

[Teror4uks]

всем привет! Подскажите пожалуйста как заполнить массив 11х11 суммой двух элементов (1 строки и 1 столбца),

  for i := 1 to 11 do begin
             for j := 1 to 11 do begin
             mastable[1,1]:=0;
             mastable[2,1] := one;
             mastable[3,1] := two;
             mastable[4,1] := three;
             mastable[5,1] := foo;
             mastable[6,1] := five;
             mastable[7,1] := six;
             mastable[8,1] := seven;
             mastable[9,1] := eth;
             mastable[10,1] := nine;
             mastable[11,1] := zero;
             mastable[1,2] := one;
             mastable[1,3] := two;
             mastable[1,4] := three;
             mastable[1,5] := foo;
             mastable[1,6] := five;
             mastable[1,7] := six;
             mastable[1,8] := seven;
             mastable[1,9] := eth;
             mastable[1,10] := nine;
             mastable[1,11] := zero;
         //    mastable[i+1,j+1] := mastable[i+1,j]+mastable[i,j+1];
         //    mastable[i+2,j+2] := mastable[i+2,j]+mastable[i,j+2];
                StringGrid3.Cells[i-1,j-1] := (IntToStr(mastable[i,j]));

             end;
           end;

[ZX Spectrum-128]

SumA:=0;
SumB:=0;
For i:=1 to 11 do
  Begin 
    SumA:=SumA +mastable[1,i];
    SumB:=SumB +mastable[i,1];
  End;
For i:=1 to 11 do
For j:=1 to 11 do
  mAstable[i,j]:=sumA+sumB;

[Teror4uks]

Сообщение от ZX Spectrum-128

SumA:=0;
SumB:=0;
For i:=1 to 11 do
  Begin 
    SumA:=SumA +mastable[1,i];
    SumB:=SumB +mastable[i,1];
  End;
For i:=1 to 11 do
For j:=1 to 11 do
  mAstable[i,j]:=sumA+sumB;

прости не так выразился, нужно чтобы массив заполнился таким образом:

  2 5  4 4 5 - это первая строка
2 4 7  6
5 7 5  9
4 6 11 8
4 6 9  
5 7 10

- ну и так далее крайний столбец и строка не меняются... случайно не знаешь как это сделать?

[ZX Spectrum-128]

const
  n=11;
var
  mastable:array[1..n,1..n] of integer;
  i,j:integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      mastable[i,j]:=random(n);
  for i:=2 to n do
    for j:=2 to n do
      mastable[i,j]:=mastable[1,j]+mastable[i,1];
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(mastable[i,j]:3);
      writeln;
    end;
  readln;

end.

[Teror4uks]

спасибо огромное!!)))