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

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.

Тут много что не так.

Во-первых, внутри описания процедуры random есть вызов функции random (100) - это неверно, поэтому имя процедуры random следует изменить, например, на MyRandom.

Во-вторых, согласно объявлению, процедура MyRandom должна вызываться с параметром типа integer, а у Вас она вызывается без параметра вообще.

Ну и в-третьих, я не понял, зачем в процедуре массив, когда достаточно было объявить простую переменную.

В данной программе при обьявлении процедуры надо указать параметр k;

random (параметр) ;

судя по программе должно быть так:

random (v) ;