Задан двумерный массив mas[n,m]. Каждый элемент, больше среднего, заменить средним арифметическим нечетных элементов массива , если таковые имеются — Pascal(Паскаль)

Program zad32;
const n=5; m=6;
Var
mas:array[1..n,1..m] of integer;
i,j,a,b,S:integer;
begin
 randomize;
 for i:=1 to n do
  for j:=1 to m do
   mas[i,j]:=random(50);
S:=0;
 for i:=1 to n do
  for j:=1 to m do
 if mas[i,j] mod 2=1
 then S:=S+mas[i,j];
begin
 for i:=1 to n do
  for j:=1 to m do
 if mas[i,j] mod 2=1
 then inc(b);
end;
a:=round(S/b);
begin
 for i:=1 to n do
  for j:=1 to m do
  if mas[i,j]>a
  then mas[i,j]:=a
end;
for i:=1 to n do
 begin
 for j:=1 to m do
 write(mas[i,j],' ');
 writeln;
 readln
 end;
end.