Função para somar valores de matriz

[Thartah]

Gostaria de Uma ajuda no seguinte exercicio de função

Faça uma função que receba uma matriz 61x10. A função deve somar individualmente as colunas da matriz e armazenar o resultado na 61a linha da matriz. A função deve retornar a matriz alterada. :mellow:

Ah minha função que eu fiz é a seguinte

function calc(a : matriz ) : integer;
var
   soma : integer;
begin
   soma := 0;
   for l := 1 to 60 do
   begin
      for c := 1 to 10 do
      begin
         soma   := soma + a[l,c];
         a[61,c] := soma;
      end;
   end;
end;

Editado Setembro 9, 2009 por Jonathan Queiroz
tags para código;Modificar título para descrever melhor o tópico (Jonathan)

[Mnemonic]

Eu só troquei a posição do C pelo L

function calc(a : matriz ) : matriz;
var
soma : integer;
begin
    soma := 0;
    for c := 1 to 10 do
    begin
        for l := 1 to 60 do soma := soma + a[l,c];
        a[61, c] := soma;
    end;
    calc := a;
end;

Editado Setembro 9, 2009 por Mnemonic