Ошибка в задаче определения чисел, больших десяти

const nmax=100;
type Mas=array[1..nmax] of integer;
var a,b:Mas; 
n,m,i:byte;
PROCEDURE vvod(var a:Mas;x,i,nmax:integer);
begin
randomize;
repeat
write('Размер массива А от 2 до ',nmax,' m=');
readln(x);
until x in [2..nmax];
writeln('Массив A');
for i:=1 to x do
begin
a[i]:=random(20);
write(a[i]:4);
end;
end;
PROCEDURE deystvie (var a,b:Mas;i,n,m:integer);
var x:integer;
begin
writeln;
n:=0;
for i:=1 to x do
begin
if a[i]>10 then
n:=n+1;
b[n]:=a[i];
end;
if n=0 then write('Нет чисел больше 10')
else
begin
writeln('Массив B');
for i:=1 to n-1 do
write(b[i]:4)
end;
end;
begin
vvod(a,m,i,nmax);
deystvie(a,b,i,n,m);
end.

const nmax=100;
type Mas=array[1..nmax] of integer;
procedure vvod(var a:Mas;var x:integer);
var i:integer;
begin
randomize;
repeat
write('Размер массива А от 2 до ',nmax,' m=');
readln(x);
until x in [2..nmax];
writeln('Массив A');
for i:=1 to x do
 begin
  a[i]:=random(20);
  write(a[i]:4);
 end;
end;
procedure deystvie (a:Mas;x:integer;var b:mas;var n:integer);
var i:integer;
begin
writeln;
n:=0;
for i:=1 to x do
if a[i]>10 then
 begin
  n:=n+1;
  b[n]:=a[i];
 end;
if n=0 then write('Нет чисел больше 10')
else
 begin
  writeln('Массив B');
  for i:=1 to n do
  write(b[i]:4)
 end;
end;
var a,b:Mas;
    n,m:integer;
begin
vvod(a,m);
deystvie(a,m,b,n);
end.