Преобразовать массив таким образом, чтобы сначала располагались все элементы, равные нулю, а потом - все остальные

program lab9_3;
 
var
  a: array of real;
  i, n, ind: integer;
  min, max, sum: real;
 
begin
  write('Введите размерность массива ');
  readln(n);
  SetLength(a, n);
  for i := 0 to n - 1 do 
  begin
    write('Введите ', i + 1, ' элемент массива: ');
    readln(a[i]);
  end;
  min := a[0];
  for i := 1 to n - 1 do
    if (a[i] < min) then min := a[i];
  writeln('Минимальный элемент массива - ', min);
  max := a[0];
  ind := 0;
  for i := 1 to n - 1 do
    if (a[i] > max) then begin max := a[i]; ind := i; end;
  writeln('Максимальный элемент массива - ', max);
  writeln('Его индекс - ', ind + 1);
  sum := 0;
  for i := ind + 1 to n - 1 do sum := sum + a[i];
  writeln('Сумма элементов после максимального - ', sum);
  
end.

begin
  var n := ReadInteger('Введите размерность массива:');
  var a := 1.to(n).Select(i->ReadReal('a[' + i + '] =')).ToArray;
  a.Println;
  WriteLn(' минимальный элемент = ', a.min);
  WriteLn('максимальный элемент = ', a.max);
  WriteLn('его индекс = ', a.IndexMax);
  WriteLn('сумма элементов после максимального = ', (a[a.IndexMax:]).Sum-a.Max);
  a := ArrFill(a.Count(x->x=0), 0.0) + a.Where(x->x<>0).ToArray;
  a.Println;
end.