[Страдалецъ]

Ну вот вам демка с удалением элемента.

Код:

program Project15;

{$APPTYPE CONSOLE} //Указаник компилятору дельфи использовать консоль для вывода

uses
  SysUtils;
// Описание переменных
Var
  Arr: Array of Integer;
  i,Min: Integer;
begin
 // Инициализация массива и заполнение случайными значениями
 SetLength(Arr, 10); 
 for i := 0 to Length(Arr) - 1
 do Arr[i] := Random(100) + 1;
 // Организация цикла для последовательного вывода значений массива на консоль, поиска минимального и вывода его на консоль с последующим удалением из массива
 while Length(Arr) > 0
 do begin
    // вывод на консоль значений массива
    for i := 0 to Length(Arr) - 1
    do Write(Arr[i]:5);
    WriteLn;

    // Поиск индекса элемента с минимальным значением
    Min := 0;
    for i := 1 to Length(Arr) - 1
    do if Arr[i] < Arr[Min]
       then Min := i;
    // Вывод на консоль найденного элемента с минимальным значением
    WriteLn(Arr[Min]:5);
    // Сдвиг значений массива влево засчет замены найденного минимального
    for i := Min to Length(Arr) - 2
    do Arr[i] := Arr[i + 1];
    // Укорачивание массива засчет освободившегося значения в результате сдвига
    SetLength(Arr, Length(Arr) - 1);
    end;
 ReadLn;
end.