Пишет что ожидалось константное выражение что неправильно?

[Diyana]

Var  i,m,k,b:integer; T: array[1..k] of integer;
Begin
   Writeln ('Сколько чисел?'); readln (k);
   Writeln ('Какой диапазон?'); readln (m); readln (b);
   b:=m+abs(b);
   Randomize;
   for i:=1 to k do
   T[i]:=random(m)-b;
   if T[1]>0 then writeln ('Первое положительное')
   else if T[1]<0 then writeln ('Первое отрицательное');
 End.

______________________
Используйте тег [CODE] (кнопка [CODE] в форме сообщения) при вставке кода на форум. Подробнее в FAQ

[Alex11223]

Написано ж, k — не константное выражение.
Компилятор не знает в момент компиляции какого размера массив вы захотите.
Смотрите про динамические массивы или используйте константу.

[Diyana]

то есть в k в константах можно закинуть любое значение?

[Serge_Bliznykov]

Сообщение от Diyana

о есть в k в константах можно закинуть любое значение?

Можно закинуть:

const k=100;
Var  i,m,n,b:integer; T: array[1..k] of integer;
begin
  Writeln ('Сколько чисел?'); readln (n);
...

если Pascal новый, то можно использовать динамические массивы.

НО!!! Зачем Вам вообще массив в данной ситуации?!
Тут вполне можно обойтись совсем без массива.

Как звучит условие задачи?

[ViktorR]

На мой взгляд в этом вопросе:

то есть в k в константах можно закинуть любое значение?

ТС предполагается, что константу можно потом изменить, что конечно же не так.
На момент описания статического массива, а такой и описывается в программе, константа должна быть определена. Однажды определённая константа не может быть изменена в последующем.
В том случае, когда необходим массив, а его размер неизвестен, используется динамический массив. Размер динамического массива можно изменять в процессе работы программы (ищите в Сети ...).