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:

type
  TZiffern = array [1 .. 4] of Byte;
  TDirection = (drAsc (*aufsteigend*), drDesc (*absteigend*));

function Zerlege(Wert: integer): TZiffern;
begin
  Result[1] := Wert mod 10000 div 1000;
  Result[2] := Wert mod 1000 div 100;
  Result[3] := Wert mod 100 div 10;
  Result[4] := Wert mod 10;
end;

procedure Sort(var Ziffern: TZiffern; Direction: TDirection);
begin
 
end;

function ZiffernToZahl(Ziffern: TZiffern): integer;
begin
  Result := Ziffern[1] * 1000 + Ziffern[2] * 100 + Ziffern[3] * 10 + Ziffern[4];
end;

function MaxWert(Ziffern: TZiffern): integer;
begin
  Sort(Ziffern, drDesc);
  Result := ZiffernToZahl(Ziffern);
end;

function MinWert(Ziffern: TZiffern): integer;
begin
  Sort(Ziffern, drAsc);
  Result := ZiffernToZahl(Ziffern);
end;					

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:

var
  Form1: TForm1;
  TZiffern=array[1..4] of byte //hier fehler;
  TDirection = (drAsc (*aufsteigend*), drDesc (*absteigend*)) // hier fehler;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Result[1] := Wert mod 10000 div 1000; // hier 2 fehler
  Result[2] := Wert mod 1000 div 100;
  Result[3] := Wert mod 100 div 10;
  Result[4] := Wert mod 10;
  end;
  for i:= 1 to 3 do // hier fehler
  for j:=i+1 to 4 do
  if result[1..4]>=zahl[j] then begin
  park:=result[1..4];zahl[i]:=zahl[j];zahl[j]:=park; // hier fehler
  end; // hier fehler
  Result := Ziffern[1] * 1000 + Ziffern[2] * 100 + Ziffern[3] * 10 + Ziffern[4];
  end;// hier fehler
  Sort(Ziffern, drDesc);
  Result := ZiffernToZahl(Ziffern);
  end;
  Sort(Ziffern, drAsc);
  Result := ZiffernToZahl(Ziffern);
  end;
  edit2.text:=inttostr(result[1..4]);
end;

end.