Из элементов массива A, больших 10, сформировать массив B

const nmax=100;
var a,b:array[1..nmax] of integer;
    n,m,i,j:byte;
begin
randomize;
repeat
write('Размер массива А от 2 до ',nmax,' m=');
readln(m);
until m in [2..nmax];
writeln('Массив A');
for i:=1 to m do
 begin
  a[i]:=random(20);
  write(a[i]:4)
 end;
writeln;
n:=0;
for i:=1 to m 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.

const nmax=100;
Var A,B:array[1..nmax] of integer;
    i,m,n:integer;
    t:integer;
Begin
    Repeat
      write('Введите количество элементов массива: ');
      readln(m);
    Until (0<m)and(m<=nmax);
    writeln('Введите ',m,' чисел');
    For i:=1 to m do
     read(A[i]);
    n:=0;
    For i:=1 to m do
     if A[i]>10 then
     Begin
       n:=n+1;
       B[n]:=A[i];
     End;
    if n=0 then writeln('В массиве A нету элементов больше 10')
    else
    Begin
      writeln('Массив B');
      For i:=1 to n do
       write(B[i],' ');
    End;
    readln;
End.

const nmax=100;
Var A,B:array[1..nmax] of integer;
    i,m,n:integer;
Begin
    Repeat
      write('Введите количество элементов массива: ');
      readln(m);
    Until (0<m)and(m<=nmax);
    writeln('Введите ',m,' чисел');
    For i:=1 to m do
     read(A[i]);
    n:=0;
    For i:=1 to m do
     if (A[i] mod 5 = 0)and(A[i] mod 3 <> 0) then
     Begin
       n:=n+1;
       B[n]:=A[i];
     End;
    if n=0 then writeln('В массиве A нету элементов удолетворяющих условию')
    else
    Begin
      writeln('Массив B');
      For i:=1 to n do
       write(B[i],' ');
    End;
    readln;
End.