Работа с массивами Опции

[Negor]

Подскажите пожалуйста такое решение.
Есть некоторый массив.И из него нужно удалить элементы
меньшие какого либо значения
Например
1,3,5,4,3,1,8,6=array
удаляем все элементы меньше 5
получаем 5,8,6

[Гость]

Народ памагите,я скоро с ума сойду
Вот написал, но чтото сдесь не работает,
а что, не пойму.(((

Код

uses crt;

var a:array[1..10] of byte;
    i,n,j,k,t:byte;
begin
Clrscr;
randomize;
for i:=1 to 10 do begin
    a[i]:=random(9)+1;
    write(a[i]:2);
    end;
writeln;
readln(j);
n:=10;
for i:=1 to n do
    if a[i]<=j then

       for k:=i to n-1 do a[k]:=a[k+1];



for i:=1 to n do write(a[i]:2);
readkey
end.