Problem in Pascal!

[MikeS]

Delphi-Quellcode:

procedure TForm6.code_erzeugen;
var zahl: array [1..4] of integer;
    i, iZahl, iCount  : integer;
    fExists : boolean;

begin
        randomize;
        for i := 1 to 4 do  zahl[i] := 0;
        iCount := 4;
        while iCount > 0 do begin
          iZahl   := Random(6)+11;
          fExists := false;
          for i := 1 to 4 do begin
            if zahl[i] = iZahl then begin
              fExists := true;
              break;
            end;
          end;
          if not fExists then begin
            zahl[iCount] := iZahl;
            dec(iCount);
          end;
        end;
end;

versuche es mal damit! ist ein vorschlag von Christian Seehase soweit ich mich erinnere!