hilfe beim sortiern

[jeanl92]

brauche hilfe dringend
mein thema ein programm schreiben das beliebig viele zahlen sortiert

soviel hab ich bis jetzt doch ich komm net weiter bitte um hilfe

Delphi-Quellcode:

program sortieren;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c,d,e : integer;
begin
writeln('a=?');
readln(a);
writeln('b=?');
readln(b);
writeln('c=?');
readln(c);
writeln('d=?');
readln(d);
writeln('e=?');
readln(e);
if a<b then begin a:=a+b;
b:=a-b;
a:=a-b;
end
else if a<c then begin a:=a+c;
c:=a-c;
a:=a-c;
end
else if a<d then begin a:=a+d;
d:=a-d;
a:=a-d;
end
else if a<e then begin a:=a+e;
e:=a-e;
a:=a-e;
end;
write (a,b,c,d,e);
if b<c then begin b:=b+c;
c:=b-c;
b:=b-c;
end
else if b<d then begin b:=b+d;
d:=b-d;
b:=b-d;
end
else if b<e then begin b:=b+e;
e:=b-e;
b:=b-e;
end;
readln;



  { TODO -oUser -cConsole Main : Hier Code einfügen }
end.

danke schon mal im vorraus

[edit=fkerber]Delphi-Tags gesetzt - bitte nächstes Mal selbst machen. Mfg, fkerber[/edit]

[BAMatze]

Das Thema war vor kurzem schon mal hier im Forum. Schau dir das hier an: Sortieren beliebig vieler Zahlen. Die beiden unteren Quellcodes sollten dir die Lösung geben.