Hier ist eine alternative Lösung, die sich mehr an deinem Eingangsbeispiel orientiert. In Ergänzung zu mkinzler solltest du jetzt eigentlich das Prinzip verstehen, wie sowas gemacht wird. Wenn du Fragen hast, können diese sicherlich auch geklärt werden.
Delphi-Quellcode:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
type zahl=array of integer;
var z:zahl; i,j,x,Anzahl: integer;
begin
Writeln('Bitte Anzahl zu vergleichender Zahlen angeben ');
readln(Anzahl);
SetLength(z, Anzahl);
for i:=0 to Anzahl-1 do
begin write (i+1, '. Zahl'); readln (z[i]); end;
for j:=0 to Anzahl-1 do
begin for i:=j+1 to Anzahl-1 do
begin if z[j]<z[i] then begin
x:=z[i]; z[i]:=z[j]; z[j]:=x; end;
end;
writeln;
for i:=0 to Anzahl-1 do write (z[i]);
readln;
{ TODO -oUser -cConsole Main : Hier Code einfügen }
end;
end.