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:

var
zahl:array [1..7] of integer;
i,j,hilfe:integer;

begin
randomize;
writeln('Lottozahlen: ');
writeln('__________________');
  for i:=1 to 7 do
    begin 
      zahl[i]:=1+random(49);     <--- ich weis das hier eine weitere schleife       
    end;                              reinkommt... nur hat das bis jetzt
  for i:= 1 to 5 do                       noch nicht geklappt >_<
    for j:=i+1 to 6 do
        if zahl[i]>zahl[j] then
            begin
              hilfe:=zahl[i];
              zahl[i]:=zahl[j];
              zahl[j]:=hilfe;
            end;

for j:=1 to 6 do
  begin
    writeln('Zahl',j,': ',zahl[j]);
  end;
writeln('Zusatztzahl: ',zahl[7]);
readln;

end.