unendlich viele zahlen

[mkinzler]

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type 
    zahl=array of integer;
var 
    z:zahl; i,j,x: integer;
    anzahl: Integer;
begin
  Anzahl := 0;
  repeat
    write (i, '.Zahl (-1 für Ende)'); readln z;
    if z<>-1 then
    begin
        inc(Anzahl);
        SetLength( zahl, anzahl);
        zahl[anzahl-1] := z; 
until z = -1;
for j:=0 to Anzahl -1 do //Index beginnt bei 0 und geht bis Anzahl -1
...