Помогите решить задачу: дан двумерный массив. Найти среднее арифметическое…

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.