Como fazer a soma da coluna e a linha no Pascal

O metodo é muito facil, é só seguir estes passos:
O sl significa Soma da linha
O sc significa Soma da coluna

for i:=1 to 3 do          
    begin
      sl[i]:=0;
      for j:=1 to 3 do
        begin
          sl[i]:=sl[i]+g[i,j];
        end;
    end;  
  for i:=1 to 3 do          
    begin
      sc[i]:=0;
      for j:=1 to 3 do
        begin
          sc[i]:=sc[i]+g[j,i];
        end;
    end;
   
  for i:=1 to 3 do
    begin
      writeln('A soma da linha  ',sl[i],' na posiçao ',i);
     writeln('A soma da coluna  ',sc[i],' na posiçao ',i);       
    end;

Pronto. Esta é a logica!!
Qualquer Duvida ou sugestão, poste seu coméntario.