помогите решить задачу:

дан двумерный массив. найти среднее арифметическое четных элементов массива. (Gambas) !

Pascal

const N = 10;

var arr: array[1 ... N] of integer;

i, k: byte;

sum: integer;

avr: real;

begin

writeln ('Enter the ten elements of the array:') ;

for i:=1 to N do

read (arr[i]) ;

sum : = 0;

i : = 1;

k : = 0;

while i < = N do begin

if (arr[i] mod 2) = 0 then begin

sum : = sum + arr[i];

k : = k + 1

end;

i : = i + 2

end;

writeln (sum) ;

if k 0 then begin

avr : = sum / k;

writeln (avr)

end

else

writeln ('No elements') ;

readln;

end.