Процедура с параметром

[MD1]

Есть некий одномерный масив. b[k].

Есть действие над ним:

begin
for k:=1 to n do begin  if b[k]<0 then a:=a+k*k; end;

Нужно реализовать процедуру с параметром (вывод значения "a" после окончания цыкла), если это возможно.

[hiho]

Тут более подошла бы функция...

function Vivod(var B : Tarray { ваш массив}) extended;
var
   i : byte;
   a : extended;
begin
   { Ваши вычисления }
    Vivod := a;
end;

Если же нужна именно процедура, то

procedure Vivod(var a : extended);
var
   i : byte;
begin
   { Ваши вычисления }  
end;

Но тогда "а" должна быть глобальной переменной.
PS: Массив можно так же передавать в процедуру