Ich habe mir einmal erlaubt, Deinen Sourcecode ein wenig zu formatieren:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var i,j,m,x:integer;
begin
for I:=1 to 6 do begin
x:=i;
for j:=i+1 to 6 do
if za[x] > za[j] then
x:=j;
begin
m:=za[x];
za[x]:=za[i];
za[i]:=m;
memo2.lines.Add(inttostr(za[i]));
end;
end;
end;
Da frag ich mich schon was Du erreichen willst.
Übrigens ist Delphi natürlich selbstdokumentierend, aber Kommentare erleichtern die Fehlersuche meist ungemein, vor allem wenn darin steht warum etwas gemacht wird.
Gruß
K-H