unendlich viele zahlen

[resyiii]

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.

ich hab delphi 7 enterprise