Ajuda do Seguinte Exercicio

[Thartah]

Faça uma função que receba uma matriz B[9][9] de reais e retorna a soma dos elementos das linhas pares de B.

Pessoal o meu exercicio não esta funcionando a procedure ....

alguém poderia me dar uma ajuda onde eu estou errando ?

procedure calc( b : matriz );
begin
   for l := 1 to 9 do
   begin
      for c := 1 to 9 do
      begin
         if((l mod 2 ) = 0) then
         begin
            for x := 1 to 4 do
            begin
               a[x] := b[l,c] + b[l,c + 1];
            end;
         end;
      end;
   end;
end;

des de já agradeço

[Mnemonic]

O exercício pede uma função, mas você tá fazendo um procedure.

function calc( b : matriz ): integer;
Var
   soma: integer;
begin
   soma := 0;
   for l := 1 to 9 do
      if((l mod 2 ) = 0) then
         for c := 1 to 9 do
             soma := soma + b[l,c];
   calc := soma;
end;

Desculpa se a sintaxe tá errada, mas a lógica é essa.

[Thartah]

cara o exercicio Deu certo Obrigado!