Работа с массивами

Сделать массив из положительных чисел, где количество чисел и сами числа задавал пользователь. В программе ниже нужно заменить рандомайз.
program Project123;
var
A:array[1..7] of integer;
Imax,Max,i:integer;

begin
Randomize;
for i:=1 to 7 do
begin
A[i]:=Random(100);
write( A[i]:4);
end;
writeln;
Imax:=1;
Max:=A[1];
for i:=2 to 7 do
if Max< A[i] then
begin
Max:=A[i];
Imax:=i
end;

writeln('Max=',Max:2);
writeln('Imax=',Imax:2);
readln();
end.