Программа

CONST QuantityElement=6;   { Количество элементов вектора }
TYPE ElementType=integer;  { Тип элементов вектора }
     VectorType=array [1..QuantityElement] of ElementType; { Вектор-тип }

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

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

FUNCTION Max(A,B:ElementType):ElementType; {Функция выбора максимального числа}
  Begin
    if A>B     {Сравнение чисел}
    then Max:=A  {Определение значения функции}
    else Max:=B  {Определение значения функции}
  End;

PROCEDURE MakeVector (A,B:VectorType; var C:VectorType); { Процедура формирования результируещего массива }
  Var i:word;   { Счетчик }
  Begin
    for i:=1 to QuantityElement do { Цикл просмотра вектора }
      C[i]:=Max(A[i],B[i]) {Определение значения элемента}
  End;

VAR A,B,C:VectorType; { Вектор }
BEGIN
  WriteLn; { Пропуск строки }
  WriteLn('Ввод последоватеьности A ');  { Вывод заголовка }
  InputVector(A); { Ввод вектора A}
  WriteLn; { Пропуск строки }
  WriteLn('Ввод последоватеьности B ');  { Вывод заголовка }
  InputVector(B); { Ввод вектора B}
  MakeVector(A,B,C); {Формирование третьего вектора}
  WriteLn; { Пропуск строки }
  Write(' Последоватеьность A: ');  { Вывод заголовка }
  OutputVector(A); { Вывод вектора }
  Write(' Последоватеьность B: ');  { Вывод заголовка }
  OutputVector(B); { Вывод вектора }
  Write(' Последоватеьность C: ');  { Вывод заголовка }
  OutputVector(C); { Вывод вектора }
  WriteLn; { Пропуск строки }
END.