1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

procedure TForm1.Button1Click(Sender: TObject);
Var a: Array[1..6] of integer;
j,hilfsvar,min,i: byte;
begin
panel1.caption:='';
panel2.caption:='';
panel3.caption:='';
panel4.caption:='';
panel5.caption:='';
panel6.caption:='';
randomize;
For i:=1 to 6 do
begin
repeat
a[i]:= random(50);
until (a[i]>0) and (a[i]<>a[i-1]) and (a[i]<>a[i-2]) and (a[i]<>a[i-3]) and (a[i]<>a[i-4])and (a[i]<>a[i-5]) and (a[i]<>a[i-6]);
end;
for i:=1 to 5 do begin
min:=i;
For j:=i+1 to 6 do
if a[j]<min then min:=j;
hilfsvar:=a[min];
a[min]:=a[i];
a[i]:=hilfsvar;
end;
panel1.Caption:= inttostr(a[1]);
delay(1000);
panel2.Caption:= inttostr(a[2]);
delay(1000);
panel3.Caption:= inttostr(a[3]);
delay(1000);
panel4.Caption:= inttostr(a[4]);
delay(1000);
panel5.Caption:= inttostr(a[5]);
delay(1000);
panel6.Caption:= inttostr(a[6]);
delay(1000);
end;
end.