Написать программу на массивы и процедуры, пожалуйста

uses crt;
const nmax=20;
type Tmatr=array[1..nmax,1..nmax] of integer;
     Tmas=array[1..nmax] of real;
procedure Vvod(var x,y:byte; var mt:Tmatr);
var i,j:byte;
begin
repeat
write('Vvedite kolichestvo strok: ');
readln(x);
until (x>0)and(x<=nmax);
repeat
write('Vvedite kolichestvo stolbcov: ');
readln(y);
until (y>0)and(y<=nmax);
writeln('Vvedite ',x*y,' elementov matricy:');
for i:=1 to x do
for j:=1 to y do
  begin
    write('mt[',i,',',j,']=');
    readln(mt[i,j]);
  end;
end;
procedure VyvodMatr(x,y:byte; var mt:Tmatr);
var i,j:byte;
begin
for i:=1 to x do
  begin
    for j:=1 to y do
    write(mt[i,j]:4);
    writeln;
  end;
end;
procedure Massiv(x,y:byte;mt:Tmatr; var ms:Tmas);
var i,j:byte;
    sr:real;
begin
for j:=1 to y do
  begin
   sr:=0;
   for i:=1 to x do
   sr:=sr+mt[i,j]/x;
   ms[j]:=sr;
  end;
end;
procedure VyvodMas(y:byte;var ms:Tmas);
var i:byte;
begin
for i:=1 to y do
write(ms[i]:5:1);
writeln;
end;
var a:Tmatr;
    b:Tmas;
    n,m:byte;
begin
clrscr;
Vvod(n,m,a);
clrscr;
writeln('Matrica:');
VyvodMatr(n,m,a);
Massiv(n,m,a,b);
writeln('Massiv:');
VyvodMas(m,b);
readln
end.