Массив записан как в предыдущей задаче, восстановить исходный массив

program Project1;
uses
  CRT;
var
  i: integer;  {Переменная для организации циклов}
  k,g: integer;    {Переменные для организации счета }
  n: integer;      {Переменная для хранения значения количества элементов}
  a,b: array [1..100] of integer; { Переменные для хранения массива }
begin
  Readln(n);    {Ввод значения количества элементов в массиве}
  for i:= 1 to n do
    readln(a[i]);    {Ввод значений элементов массива}
  for i:= 1 to n do
    if i mod 2 = 0 then  { Условие проверки индекса на четность}
      begin
        textcolor(7);
        write(a[i]:4);   {Вывод четных элементов отмеченных серым цветом в консоль}
      end
    else
      begin
        textcolor(13);
        write(a[i]:4);   {Вывод нечетных элементов отмеченных фиолетовым цветом в консоль}
      end;
  writeln;
  g:= 0;          {Установка счетных переменных в начальное состояние}
  for i:= 1 to n do
    begin
      if i mod 2 = 0 then    {Условие для нахождения элементов с четными индексами}
        for k:= 1 to a[i-1] do  {Цикл, который повторяется столько раз, сколько имеет значение элемента с нечетным индексом}
          begin
            g:= g + 1;   {Увеличение счетчика}
            b[g]:= a[i];  { Присваивание элементу нового массива значения элемента исходного массива с четным индексом}
          end;
    end;
  textcolor(7);
  for i:= 1 to g do
    write(b[i]:4);   {Вывод исходного массива в консоль}
  Readln;
end.