Функции в Паскале

[Миша44]

В процедуре нужно заполнить прямоугольную матрицу размером 3×4 случайными числами. В основной программе найти и поменять местами максимальный и минимальный элементы матрицы, а в функции найдите среднее арифметическое всех элементов матрицы.

[Миша44]

Program m666;
Type mas=array[1..4,1..3] of integer;
var a:mas;
b:array[1..3,1..4] of integer;
i,j:byte;
k:integer;
z:real;
pp:byte;
max,min:byte;
imin,jmin,imax,jmax:byte;

Procedure matrix(Var a:mas; i,j:byte);
Begin
randomize;
for i:=1 to 4 do
begin
for j:=1 to 3 do
Begin
a[i,j]:=random(10);
write (a[i,j],' ');
end;
writeln;
end;
end;

Function sr(var a:mas; k:integer):real;
Begin
k:=0;
for i:=1 to 4 do
begin
for j:=1 to 3 do
Begin
k:=k+a[i,j];
end;
writeln;
end;
sr:=k/12;
end;

begin
matrix(a,j,i);
z:=sr(a,k);
writeln('srednee arifmeticheskoe ravno', z:5:2);
end;
begin
b[i,j]:=a[i,j];
imin:=1;
jmin:=1;
imax:=1;
jmax:=1;
max:=b[1,1];
min:=b[1,1];
for i:=1 to 3 do
for j:=1 to 4 do
begin
if b[i,j] > max then
begin
max:=b[i,j];
imax:=i;
jmax:=j;
end;
if b[i,j]< max then
begin
min:=b[i,j];
imin:=i;
jmin:=j;
end;
end;
pp:=b[imax,jmax];
b[imax,jmax]:=b[imin,jmin];
b[imin,jmin]:=pp;
writeln('max element',max);
writeln('min element',min);
writeln('zamena',pp);
readln
end.

где я ошибся?