Данные:

Задача:
Опишите процедуру sum(x,y,z), которая присваивает вектору z сумму векторов x и y, и используйте ее для вычисления d=a+b+c.
Что-то я не слишком понимаю задание. В процедуре надобно писать так (на мой взгляд):

Ну присвоили вектору сумму, а при чем тут вычисление с его помощью d=a+b+c?

Ну, наверное вот так хотят:

procedure sum(x, y: vector; var z: vector);
var i: integer;
begin
  for i := 1 to n do z[i] := x[i] + y[i];
end;

var a, b, c, d: vector;
begin
  sum(a, b, d); { с помощью sum ... }
  sum(d, c, d);
end.