Информатика(паскаль) создать массив случайных чисел, вывести его на экран в строчку. из массива удалить все элементы, принадлежащие заданному интервалу

Const n=10;
var a: array[1..n] of integer;
i,m,n:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(300);
write(a[i],'  ');
end;
writeln;
readln(m,n);
for i:=1 to n do
if (a[i]<m) or (a[i]>n) then write(a[i],' ')
end.