program addmass;
uses crt;

type mas=array[1..1000] of real;

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

var x:mas;
i,n:integer;

begin
clrscr;
write('enter long of array - n=');
readln(n);

addmas(x,n);

for i:=1 to n do
begin
write(x[i]:0:1,' ');
end;
readln;
end.

В итоге массив Х остается с пустыми значениями! Почему? Такое ощущение что создается массив А.