Среднее арифметическое положительных элементов матрицы

uses crt;
const max=20;
type matr=array[1..max,1..max] of integer;
procedure Vvod(var mt:matr;var x,y:byte);
var i,j:byte;
begin
repeat
write('Количество строк до ',max,' =');readln(x);
until x in [3..max];
repeat
write('Количество столбцов до ',max,' =');readln(y);
until y in [1..max];
writeln('Введите ',x*y,' элементов матрицы:');
for i:=1 to x do
for j:=1 to y do
 begin
  write('el[',i,',',j,']=');
  readln(mt[i,j]);
 end;
clrscr;
end;
procedure Vyvod(var mt:matr;x,y:byte);
var i,j:byte;
begin
writeln('Матрица:');
for i:=1 to x do
 begin
  for j:=1 to y do
  write(mt[i,j]:4);
  writeln;
 end;
end;
function Sred(mt:matr;x,y:byte):real;
var i,j:byte;
    k:integer;
    s:real;
begin
s:=0;k:=0;
for i:=1 to x do
for j:=1 to y do
if mt[i,j]>0 then
 begin
  k:=k+1;
  s:=s+mt[i,j];
 end;
Sred:=s/k;
end;
 
var a:matr;
    n,m:byte;
begin
clrscr;;
Vvod(a,n,m);
Vyvod(a,n,m);
write('Среднее положительных=',Sred(a,n,m):0:2);
readln
end.