Программа

CONST m=5;
      QuantityElement=2*m;   { Количество элементов вектора }
TYPE VectorType=array [1..QuantityElement] of integer; { Вектор-тип }
VAR B,B2:VectorType; { Исходный и создаваемый векторы  }

PROCEDURE InputVector (var Vector:VectorType); { Процедура ввода вектора }
  Var i:word; { Счетчик }
  Begin
    for i:=1 to QuantityElement do { Цикл ввода элементов вектора }
      begin
        Write('Введите элемент [',i,'] ');
                                 { Вывод приглашения ввести элемент вектора }
        ReadLn(Vector[i]);   { Ввод элемента вектора }
       end
  End;

PROCEDURE OutputVector (Vector:VectorType); { Процедура вывода вектора }
  Var i:word;   { Счетчик }
  Begin
    for i:=1 to QuantityElement do { Цикл вывода вектора }
      Write (Vector[i],'  ');  { Вывод элемента вектора }
    WriteLn  { Пропуск строки }
  End;

PROCEDURE ProcessVector (Vector:VectorType;var Vector2:VectorType);
                                               { Процедура просмотра вектора }
  Var i:word;   { Счетчик }
  Begin
    for i:=1 to m do Vector2[i*2]:=Vector[i];
    for i:=2*m downto m+1 do Vector2[(2*m-i)*2+1]:=Vector[i]
  End;

BEGIN
  WriteLn; { Пропуск строки }
  InputVector(B); { Ввод вектора }
  WriteLn; { Пропуск строки }
  WriteLn('Вектор 1: ');  { Вывод заголовка }
  OutputVector(B); { Вывод вектора }
  WriteLn; { Пропуск строки }
  ProcessVector(B,B2);  { Обработка вектора }
  WriteLn('Вектор 2: ');  { Вывод заголовка }
  OutputVector(B2); { Вывод вектора }
  WriteLn; { Пропуск строки }
END.