Процедуры: среднее арифметическое массива и количество элементов, меньших 15, в матрице - Free Pascal

uses crt;
type mas=array[1..100] of integer;
     mtr=array[1..20,1..20] of integer;
procedure massiv(var a:mas;var n:byte;var sr:real);
var i:byte;
begin
repeat
clrscr;
write('Введите размер массива от 2 до 100 n=');
readln(n);
until n in [2..100];
sr:=0;
writeln('Массив');
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i]:4);
  sr:=sr+a[i];
 end;
sr:=sr/n;
writeln;
writeln('Среднее арифметическое=',sr:0:1);
readln;
end;
procedure matrix(var b:mtr;var n:byte;var k:byte);
var i,j:byte;
begin
clrscr;
repeat
write('Введите размер матрицы от 2 до 20 n=');
readln(n);
until n in [2..20];
k:=0;
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=random(20);
    write(b[i,j]:4);
    if b[i,j]>15 then k:=k+1;
   end;
  writeln;
 end;
writeln('Количество элементов больше 15=',k);
readln;
end;
var a:mas;
    b:mtr;
    n,m,k:byte;
    sr:real;
    w:char;
begin
clrscr;
randomize;
repeat
clrscr;
writeln('Выберите действие');
writeln('1-обработка массива');
writeln('2-обработка матрицы');
writeln('другое-выход');
readln(w);
case w of
'1':massiv(a,n,sr);
'2':matrix(b,m,k);
else exit;
end;
until not(w in ['1','2']);
end.