Programm Hilfe

[boxer123]

Delphi-Quellcode:

doppelt:=true;
for i:= Low(a) to High(a) - Strtoint(park) do
if a[i] > a[i+1] then begin
park:=a[i];a[i]:=a[i+1];a[i+1]:=park;
doppelt:= false;
end;
park :=strtoint(park) +1;
until doppelt;

so?