Удалить из массива элементы которые больше данного числа n — Pascal(Паскаль)

uses crt;
var a:array[1..10] of integer;
   i,n,k,m,j:integer;
begin
clrscr;
randomize;
write('Введите n = ');
readln(n);
write('Введите количество m = ');
readln(m);
for i:=1 to m do
begin
a[i]:=random(10);
end;
for i:=1 to m do
begin
write(a[i]:3);
end;
 
for i:=m downto 1 do
if a[i]<n then
begin
for j:=i to m-1 do
a[j]:=a[j+1];
inc(k);
end;
writeln;
for i:=1 to m-k do
begin
write(a[i]:3);
end;
readkey;
end.