Программа

CONST n=6;   { Количество элементов вектора }
TYPE VectorType=array [1..n] of integer; { Вектор-тип }
VAR A:VectorType; { Вектор }
    Sum,Number:integer; { Сумма положительных и число отрицательных элементов }
PROCEDURE InputVector (var Vector:VectorType); { Процедура ввода вектора }
  Var i:word; { Счетчик }
  Begin
    for i:=1 to n do { Цикл ввода элементов вектора }
      begin
        Write('Введите элемент [',i,'] ');
                                 { Вывод приглашения ввести элемент вектора }
        ReadLn(Vector[i]);   { Ввод элемента вектора }
      end
  End;

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

PROCEDURE ProcessVector (Vector:VectorType; var Sum,Number:integer);
{ Процедура просмотра вектора и набора суммы положительных и числа отрицательных элементов }
  Var i:word;   { Счетчик }
  Begin
    Sum:=0;  { Обнуление суммы положительных элементов }
    Number:=0; { Обнуление количества отрицательных элементов }
    for i:=1 to n do { Цикл просмотра вектора }
      if Vector[i]<0  { Если элемент массива отрицательный, }
        then Number:=Number+1  { то набор количества отрицательных }
        else Sum:=Sum+Vector[i]     { иначе набор суммы положительных }
  End;

BEGIN
  WriteLn; { Пропуск строки }
  InputVector(A); { Ввод вектора }
  WriteLn; { Пропуск строки }
  WriteLn(' Вектор: ');  { Вывод заголовка }
  OutputVector(A); { Вывод вектора }
  WriteLn; { Пропуск строки }
  ProcessVector(A,Sum,Number);  { Обработка массива }
  WriteLn('Сумма положительных элементов ',Sum);
                                       { Вывод суммы положительных элементов }
  WriteLn('Число отрицательных элементов ',Number);
                                       { Вывод числа отрицательных элементов }
END.