Матрица в Delphi.

[Рысты]

Всем добрый вечер! Я чайник, так что не судите строго. На этом фрагменте суммируются элементы строк x2, это значение отнимается от x, присваивается к v и выводится на TntStringGrid4. Теперь мне надо вместо строк взять элементы столбцов. Короче говоря так: v[1]=x[1]-(x[1,1]+x[2,1]+x[3,1]) и т.д. Заранее спасибо!

...
var p,x2,m,b,e,a:array [1..3,1..3]of real;
v,x,y:array[1..3] of real;
k,i,j:integer;
s:real;

...
begin
x2[i,j]:=roundto(a[i,j]*x[j],-2);
TntStringGrid5.Cells[j-1,i-1]:=floattostr(x2[i,j]);
end;
for i:=1 to 3 do
begin
s:=0;
for j:=1 to 3 do
s:=s+x2[i,j];
v[i]:=roundto(x[i]-s,-2);
TntStringGrid4.Cells[0,i-1]:=floattostr(v[i]);
end;