Одномерный массив задача Delphi

[Начинающий програм]

Помогите пожалуйста с задачей.

Условие.
Дан массив из n элементов X1,X2, …,Xk. Образовать новый массив, элементы которого 1, X1, X2, …, Xk, 2, X1, X2, …, Xk, 3, X1, X2, …, Xk.

[Начинающий програм]

Как можно переделать код программы чтоб он выполнял условие. Очень нужно! Подскажите кто знает.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;
const
  n=5;
type
  telem=integer;
  a_mas=array [1..n] of telem;
  b_mas=array [1..n] of telem;
var
  a:a_mas;
  b:b_mas;
  i,s,c:integer;
begin
  for i:=1 to n do
    readln(a[i]);

  s:=0;
  for i:=1 to n do
    begin
      s:=s+a[i]
    end;
    write(s);
    readln;
  for i:=1 to 2*n do
  readln(b[i]);

  b[i]:=0;
  for i:=1 to 3 do
    begin
      b[i]:=i+s
    end;
    for i:=1 to 2*n do
    writeln(b[i]);
    readln
end.

[Hacker19_90]

Не совсем понял задание! пожалуйста приведите пример!

[Начинающий програм]

Например первый массив состоит из 7,5,9.
Нужно создать второй массив состоящий из 1,7,5,9,2,7,5,9,3,7,5,9.
Лично я так понял условие задачи.

[Mad_Cat]

c:=0;
For i:=1 to 3 do
begin
inc(c);mas2[c]:=i;
For j:=1 to k do
begin
inc(c);mas2[c]:=mas1[j];
end;
end;

[Начинающий програм]

Я Вам очень благодарен!

[Начинающий програм]

Как можно переделать этот фрагмент программы без inc. т.е. без процедур и функций?


Условие

Дан массив из n элементов X1,X2, …,Xk. Образовать новый массив, элементы которого 1, X1, X2, …, Xk, 2, X1, X2, …, Xk, 3, X1, X2, …, Xk.

c:=0;
For i:=1 to 3 do
begin
inc(c);mas2[c]:=i;
For j:=1 to k do
begin
inc(c);mas2[c]:=mas1[j];
end;
end;

[Hacker19_90]

Inc(c) это тоже самое что c := c+1

[Начинающий програм]

То есть так?

c:=0;
For i:=1 to 3 do
begin
c:=c+1; mas2[c]:=i;
For j:=1 to k do
begin
с:=c+1; mas2[c]:=mas1[j];
end;
end;

[Hacker19_90]

дАААААААААААААААААААААААА
сори просто двух символов мало для отправки сообщения