Ну вот вам демка с удалением элемента.
Код:
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.