Delphi-Quellcode:
procedure TForm1.Button7Click(Sender: TObject);
var n,i:integer;
h:array[0..10000] of integer;
begin
n:=strtoint(edit1.Text);
minimumsuche(n,h);
for i:=1 to n do
begin
sortiert.Items.Add(inttostr(h[i]));
end;
end;
So definierst Du das Array ja neu, anstatt es zu übernehmen, demnach ist es ja leer.
Wenn dann müsste es eher so aussehen:
Delphi-Quellcode:
procedure TForm1.Button7Click(Sender: TObject);
var n,i:integer;
h:array[0..10000] of integer;
begin
n:=strtoint(edit1.Text);
// hier die Zahlen aus zufall in h einlesen
for i:=1 to zufall.count do
h[i]:=strtoint(zufall.items[i]);
// nun hast Du Deine Zufallszahlen in h und kannst damit weiterarbeiten
minimumsuche(n,h);
for i:=1 to n do
begin
sortiert.Items.Add(inttostr(h[i]));
end;
end;