индекс находится вне границ массива
Program RD;
Var X:array [1..15] of real;
i:integer ;
Begin
X[i]:=random(32)-7;
end.

0