Что не так? (процедура обязательна) procedure random(k: integer); var a: array[1..100] of integer; var l: integer; begin for l: =1 to k do begin a[l]: =random(100); writeln(a[l]); end; end; var v: integer; begin write('сколько будет чисел? : '); readln(v); random; end.

В данной программе при обьявлении процедуры надо указать параметр k;
random(параметр);
судя по программе должно быть так:
random(v);

Тут много что не так.
Во-первых, внутри описания процедуры random есть вызов функции random(100) - это неверно, поэтому имя процедуры random следует изменить, например, на MyRandom.
Во-вторых, согласно объявлению, процедура MyRandom должна вызываться с параметром типа integer, а у Вас она вызывается без параметра вообще.
Ну и в-третьих, я не понял, зачем в процедуре массив, когда достаточно было объявить простую переменную.