Переделать под с Паскаля в Делфи

{$DEFINE DEBUG}
program p0524;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
  W = 4;  // количество символов для отображения элементов (значений) массива
 
procedure PrintArray(a :array of Integer);
var
  i :Integer;
begin
  for i := Low(a) to High(a) do
    Write(Format('%*d', [W, a[i]]));
  { end for }
  Writeln;
end;
 
procedure qSort(var aVal: array of Integer; min, max: Integer);
var
  i, j, vmd, tmp: Integer;
begin
  vmd := aVal[max - ((max - min) div 2)];
  i := min;
  j := max;
  while i < j do begin
    while aVal[i] > vmd do
      Inc(i);
    { end while }
    while aVal[j] < vmd do
      Dec(j);
    { end while }
    if i <= j then begin
      tmp := aVal[i];
      aVal[i] := aVal[j];
      aVal[j] := tmp;
      inc(i);
      Dec(j);
    end; { end if }
  end; { end while }
 
  if min < j then qSort(aVal, min, j);
  { end if }
  if i < max then qSort(aVal, i, max);
  { end if }
end;
 
function GetMaxItem(a :array of Integer) :Integer;
// номер максимального элемента массива - считаем с нуля!!!
var
  i, m :Integer;
begin
  Result := Low(a);
  m := a[Low(a)];
  for i := Low(a) + 1 to High(a) do
    if Result < a[i] then
      Result := a[i];
    { end if }
  { end for }
end;
 
function GetProduct(a :array of Integer; var p :Int64) :Boolean;
// произведение элементов массива, расположенных между первым и вторым нулевыми элементами
// результат - true, если в массива есть два нулевых элемента, во всех остальных случаях - False
// Значение произведения этих чисел в переменной [var p: Int64]
var
  i, m :Integer;
  iB, iE :Integer;
 
  function GetIndex(a :array of Integer; p :Integer) :Integer;
  // получить индекс элемента массива равного нулю, начиная считать с элемента с номером [p]
  var
    i :Integer;
  begin
    Result := 0;
    for i := p to High(a) do
      if a[i] = 0 then begin
        Result := i;
        Break;
      end; { end if }
    { end for }
  end;
begin
  Result := False;
  iB := GetIndex(a, Low(a));  // от начала массива
  if iB = 0 then  // в массиве нет элементов равных нулю
    Exit;
  { end if }
 
  iE := GetIndex(a,  Succ(iB)); // от следующего за первым нулевым элементом
  if iE = 0 then  // в массиве нет второго элемента равного нулю
    Exit;
  { end if }
 
  p := 1;
  for i := Succ(iB) to Pred(iE) do
    p := p * a[i];
  { end for }
 
  Result := True;
end;
 
var
  i, n :Integer;
  a :array of Integer;
  t :array of Integer;
  p :Int64;
 
begin
  {$IFDEF DEBUG}
  n := 30;
  {$ELSE}
  Readln(n);
  {$ENDIF}
 
  // начальное заполнение массива псевдослучайными числами
  Randomize;
  SetLength(a, n);
  for i := Low(a) to High(a) do
    a[i] := Random(20);
  { end for }
  PrintArray(a);
 
  Writeln(Format('Максимальный элемент массива - %*d', [W, GetMaxItem(a)]));
 
  if GetProduct(a, p) then
    Writeln(Format('Произведение элементов массива, расположенных между первым и вторым нулевыми элементами - %*d', [18, p]))
  else
    Writeln('В массиве нет двух элементов равных нулю');
  { end if }
 
  { в первой половине размещались элементы, которые были в нечетных позициях,
    отсортированные в порядке убывания, а во второй половине - что стояли в четных позициях. }
  // отберем во временный массив нечетные элементы рабочего массива [a]
  SetLength(t, ((Length(a) + 1) div 2));
  n := Low(t);
  for i := Low(a) to High(a) do
    if Odd(Succ(i)) then begin  // отсчет элементов в Delphi с нуля, но прибавим единицу для естественного порядка элементов
      t[n] := a[i];
      inc(n);
    end; { end if }
  { end for }
 
  // отсортируем временных массив
  qSort(t, Low(t), High(t));
 
  // переместим четные элементы массива во вторую половину
  n := High(a);
  for i := High(a) downto Low(a) do
    if not Odd(Succ(i)) then begin
      a[n] := a[i];
      Dec(n);
    end; { end if }
  { end for }
 
  // и заполним первую отсортированными значениями из временного массива
  for i := Low(t) to High(t) do
    a[i] := t[i];
  { end for }
 
  PrintArray(a);
  Readln;
 
end.