Программа

CONST QuantityElement=6;   { Количество элементов вектора }
TYPE VectorType=array [1..QuantityElement] of integer; { Вектор-тип }
VAR Vector:VectorType; { Вектор }
FUNCTION GetMaxElement(B:VectorType):integer;
                      { Функция поиска номера максимального элемента вектора }
  Var i:word; { Счетчик }
      Max:word;  { Номер максимального элемента }
  Begin
    Max:=1;  { Начальное определение номера максимального элемента }
    for i:=1 to QuantityElement do { Цикл просмотра элементов вектора }
      if B[i]>B[Max] then Max:=i; { Если текущий элемент
             больше максимального, то - переопределение номера максимального }
    GetMaxElement:=Max  { Определение значения функции }
  End;

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],'  ');  { Вывод элемента вектора }
    WriteLn  { Вывод конца строки }
  End;

FUNCTION GetSum(B:VectorType;HiNum:word):integer;
                                  { Функция набора суммы элементов вектора }
  Var i:word;   { Счетчик }
      Sum:integer; { Сумма элементов }
  Begin
    Sum:=0; { Сброс суммы }
    for i:=1 to HiNum do { Цикл просмотра вектора }
      Sum:=Sum+B[i];  { Набор суммы }
    GetSum:=Sum  { Определение значения функции }
  End;

BEGIN
  WriteLn; { Пропуск строки }
  InputVector(Vector); { Ввод вектора }
  WriteLn; { Пропуск строки }
  WriteLn(' Вектор: ');  { Вывод заголовка }
  OutputVector(Vector); { Вывод вектора }
  WriteLn; { Пропуск строки }
  WriteLn('Сумма ',GetSum(Vector,GetMaxElement(Vector)));
                                                 { Вычисление и вывод суммы }
END.