Что не так? (процедура обязательна)

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.

Ошибка в строке: a[l]:=random(100);

Огромное спасибо!

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

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