Элементы вектора, удовлетворяющие условию, переписать в массив

program tixi;
const n=10;
var b:array[1..n] of real;x:array[1..n] of real;y:array[1..n] of real;i:integer;
begin
   writeln('Vvodite ',n,' elementov vektora');
   for i:=1 to n do
      readln(b[i]);
   for i:=1 to n do
      if b[i]>10 then readln(x[i]);
      if b[i]<=10 then readln(y[i]);
end.

uses crt;
const nmax=100;
var b,x,y:array[1..nmax] of integer;
    n,m,k,i:byte;
begin
clrscr;
randomize;
repeat
write('Размер исходного массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  b[i]:=random(15);
  write(b[i],' ');
 end;
writeln;
writeln;
m:=0;k:=0;
for i:=1 to n do
 begin
  if b[i]>10 then
   begin
    m:=m+1;
    x[m]:=b[i];
   end;
  if b[i]<=10 then
   begin
    k:=k+1;
    y[k]:=b[i];
   end;
  end;
if m=0 then writeln('Элементов больше 10 нет!')
else
 begin
  writeln('Массив X:');
  for i:=1 to m do
  write(x[i],' ');
  writeln;
  writeln;
 end;
if k=0 then writeln('Элементов меньше или равных 10 нет!')
else
 begin
  writeln('Массив Y:');
  for i:=1 to k do
  write(y[i],' ');
  writeln;
  writeln;
 end;
readln
end.

for i:=1 to n do
 if b[i]>10 then readln(x[i]);
 if b[i]<=10 then readln(y[i]);