Criando arrays ramdomicos

Var
a: array[0..4] of integer;
i: Integer;
begin
for i:= 0 to 4 do
begin
a[i]:= random(99) + 1;
end;

end;

// obs: o 99 no random é o intervalo a ser sorteado .