[PhoeniX]

Так сойдёт? с тебя +.

Код:

  s:=0;
  q:=0;
  w:=0;
  for i:=1 to 3 do begin
    s:=s+x[i,1];
    q:=q+x[i,2];
    w:=w+x[i,3];
  end;  
  label1.Caption:=floattostr(s)+#13+floattostr(q)+#13+floattostr(w);