const
  maxsize = 255;

var
  arr: array [1..maxsize] of integer;
  i, min, count, size: byte;

begin
  Write('Введите кол-во элементов массива (1 <= n <= ', maxsize, '): ');ReadLn(size);
  for i := Low(arr) to size do
  begin
    Write('Введите ', i, '-й элемент массива: ');ReadLn(arr[i]);
  end;

  WriteLn('Исходный массив:');
  for i := Low(arr) to size do Write(arr[i]:4);
  WriteLn;

  min := Low(arr);
  for i := Low(arr) + 1 to size do if arr[min] > arr[i] then min := i;
  WriteLn('Минимальный элемент массива имеет индекс ', min, ' и равен ', arr[min]);

  count := 0;
  for i := min + 1 to size do
    if arr[i] < 0 then Inc(count)
    else arr[i - count] := arr[i];
  Dec(size, count);

  WriteLn('Полученный массив:');
  for i := Low(arr) to size do Write(arr[i]:4);
  WriteLn;
end.