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

[Negor]

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

[volvo]

Было почти правильно... Только вот так все-же лучше:

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;
  i := 1;
  while i <= n do

    if a[i]<=j then begin
      for k:=i to n-1 do a[k]:=a[k+1];
      dec(n)
    end
    else inc(i);

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

Неиспользуемые переменные убери...