Поместить в массиве NFR только те элементы массива MAS10, которые находятся в диапазоне от 2 к 9 — Pascal(Паскаль)

const x:set of byte=[2..9];
var mas10,nrf:array[1..10]of integer;
    i,k:byte;
begin
randomize;
k:=0;
for i:=1 to 10 do
begin
   mas10[i]:=random(21)-5;
   write(mas10[i]:3);
   if mas10[i] in x then
   begin
     inc(k);
     nrf[k]:=mas10[i];
   end;
end;
writeln;
for i:=1 to k do
write(nrf[i]:2);
readln;
end.