procedure TfMain.btnCalcClick(Sender: TObject);
var
 a: array of array of integer;
 i,j,k,n,m,er,sum,p:integer;
 st,sub: string;
begin

//Get array

 n:= memArray.Lines.Count;
 m:= 1;
 for i:= 0 to n-1 do
 begin
  SetLength(a,i+1,m);
  st:=memArray.Lines.Strings[i];

  sub:='';
  k:=0;
  for j:=1 to Length(st) do
  begin
   if CharInSet(st[j],['0'..'9']) then
    sub:=sub+st[j]
   else
    if sub<>'' then
    begin
     inc(k);
     if k>m then
      SetLength(a,i+1,k);
     val(sub,a[i,k-1],er);
     sub:='';
    end;
  end;
  if sub<>'' then
  begin
   inc(k);
   if k>m then
     SetLength(a,i+1,k);
   val(sub,a[i,k-1],er);
   sub:='';
  end;

  if k<m then
   for p := k+1 to m do
    a[i,p-1]:=0
  else m:=k;
 end;

//Calc Sum
 memResult.Lines.Clear;
 memResult.Lines.Add('');
 for i:=0 to m-1 do
 begin
  sum:=0;
  for j:=0 to n-1 do
   sum:=sum+a[j,i];
  memResult.Lines.Strings[0]:=memResult.Lines.Strings[0]+' '+IntToStr(sum);
 end;
 SetLength(a,0,0);
end;