ein sortierprogramm

[resyiii]

Code:

program weitsprung;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var z: string;
    i,j, anzahl: integer;

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 (z[i],z[j]);


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