unendlich viele zahlen

[BAMatze]

hatte noch einen Copy-Paste-Fehler bei mir gefunden. Teste mal ob das hier dein Problem gelöst hat:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type zahl=array of integer;

var z:zahl; i,j,x,Anzahl, y: 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:=y to Anzahl-1 do
      begin
        for i:=j+1 to Anzahl-1 do if z[j]<z[i] then
          begin
            x:=z[i];
            z[i]:=z[j];
            z[j]:=x;
          end;
        writeln;
      end;

for i:=0 to Anzahl-1 do write (z[i]);
readln;

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