Индекс находится вне границ массива Program RD; Var X:array [1..15] of real; i:integer ; Begin X[i]:=random(32)-7; end.
Ты i объявил,но не дал ей значение,i:= 1,это пример