unendlich viele zahlen

[BAMatze]

Versuch mal den hier:

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 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.

Das y ist mein Fehler gewesen. war von einem anderen Test.