Найти среднее арифметическое чётных элементов матрицы

Uses CRT;
Const n=4;
var a:array[1..n,1..n] of integer;
    i,j:integer;
    s:real;
begin
     writeln('Ââåäèòå ìàòðèöó:');
     for i:=1 to n do
     for j:=1 to n do
     begin
     write('a[',i,' ',j,']=');
     read(a[i,j]);
     end;
     for i:=1 to n do
     for j:=1 to n do
     begin
          gotoxy(j*5+10,i+1);
          Write(a[i,j]);
     end;
     s:=0;
     for i:=1 to n do
     begin
              for j:=1 to n do
              begin
              if (not(a[i,j] mod 3=0)) then s:=s+a[i,j];
              end;
     end;
     writeln('');
     gotoxy(j*5+15,i+1);
     writeln('Summa=',s);
end.

Program pratkita8;
uses CRT;
Const n=4;
var a:array [1..n,1..n] of integer;
i,j,sa1,z,min:integer;
sa2:real;
begin
     write('Ìàòðèöà:');
     writeln('');
     for i:=1 to n do
     for j:=1 to n do
     begin
     write('a[',i,' ',j,']=');
     read(a[i,j]);
     end;
     for i:=1 to n do
     for j:=1 to n do
     begin
          gotoxy(j*5+10,i+1);
          Write(a[i,j]);
     end;
     begin
          sa1:=0;
          for i:=1 to n do
          for j:=1 to n do
     begin
          if not(odd(a[i,j])) then sa1:=sa1+1;
          if not(odd(a[i,j])) then sa2:=sa2+a[i,j];
     end;
     sa2:=sa2/sa1;
     gotoxy(j*5+20,i);
     writeln('Ñðåä. Àðèôì=',sa2);
     z:=Trunc(sa2);
     min:=a[1,1];
     for i:=1 to n do
     for j:=1 to n do
     if min>a[i,j] then min:=a[i,j];
     gotoxy(j*5+20,i+1);
     writeln('Min=',min);
 
     for i:=1 to n do
     begin
          for j:=1 to n do
          begin
               if a[i,j]=min then
               for j:=1 to n do
               a[i,j]:=z;
          end;
     end;
     {writeln('');
     gotoxy(j,i+8);
     writeln('Íîâàÿ ìàòðèöà:');}
     for i:=1 to n do
     for j:=1 to n do
     begin
          gotoxy(j*5+10,i+10);
          Write(a[i,j]);
     end;
end;
end.