Динамические структуры данных. Линейные списки. Удаление элементов

[Мерлин]

Сформировать список из N целочисленных случайных элементов (N – вводится
пользователем, значения элементов выбирать из диапазона от 0 до 99). Удалить все
элементы списка, содержащие числа большие, чем значение последнего элемента
списка.

[Stilet]

Угу... Попытки были?

[min@y™]

Забыл добавить "И побыстрее, рабы! Мне ещё много чего сдавать!"

[Utkin]

Сформировать список из N целочисленных случайных элементов (N – вводится
пользователем, значения элементов выбирать из диапазона от 0 до 99).

Сформировал.

Удалить все
элементы списка, содержащие числа большие, чем значение последнего элемента
списка.

Удалил.
Третье желание будет? Или так и сидеть в лампе и ждать пока снова потрут?

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var i,N,max:integer;
    p:array of integer;
begin
   Memo1.Clear;
   N:=50;
   SetLength(p,N);
   For i:=0 to N-1 do
      p[i]:=Random(100);
   max:=p[N-1];
   For i:=0 to N-1 do
      If p[i]>max then
         p[i]:=-1;
   For i:=0 to N-1 do
      If p[i]>=0 then
         Memo1.Lines.Add(IntToStr(p[i]));
end;

Сойдет?