ein sortierprogramm

[resyiii]

Delphi-Quellcode:

program weitsprung;

{$APPTYPE CONSOLE}

uses
  SysUtils;

    type tWeitsprung = record
                     Name  : String[255];
                     Weite : Real;
                     end;
    var Weitsprung : Array of tWeitsprung;

begin

write ('Anzahl der Sportler?'); readln (anzahl);
setlength (z, Anzahl);
write ('Name des Sportlers?');
for i:=0 to Anzahl-1 do
begin write (i+1, '.Name? '); readln (z[i]);  end;
for j:=0 to Anzahl-1 do
begin write (j+1,'.Weite? '); readln (z[j]); end;
readln(Weitsprung[i].Name)


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

da is mein j udn mein i udn alles nciht mehr drin.
bin ich zu blöd?