Составить программу вычисления среднего арифметического значения элементов массива

for i:=1 to n do
if i mod 2<>0 then begin
s:=s+z[i];
inc(k);
end;
writeln(s/k);

uses
    crt;
const
     max=50;
var
   a:array[1..max,1..max] of integer;
   i,j,n,s,k:integer;
begin
     writeln('wvedite razmernost matrici');
     readln(n);
     writeln('wvedite matricu ',n,' x ',n);
     for i:= 1 to n do
         begin
              for j:= 1 to n do
                  read(a[i,j]);
         end;
     s:=0;
     k:=0;
     for i:= 1 to n do
         begin
              for j:= 1 to n do
                  if (j mod 2<>0) and (i mod 2<>0) then
                     begin
                          s:=a[i,j]+s;
                          k:=k+1
                     end;
         end;
         s:=round(s/k);
         writeln('sredne arifmet znashenie s neshetnimi indeksami ravno ', s);
readkey
end.