Мужики! Я поридил хелп Паскалевский и все понял!

Нужно процедуру задавать так:

procedure addmas(var a:mas;var b:integer);
var j:integer;
begin
randomize;
for j:=1 to b do
begin
a[j]:=random(100)-50;
end;
end;

Маст хэв!