ein sortierprogramm

[taaktaak]

Delphi-Quellcode:

type tWeitsprung = record
                     Name  : String[255];
                     Weite : Real
                     end;    

var Weitsprung : Array of tWeitsprung;

...

for i:=0 to Anzahl-1 do begin
  ..
  readln(Weitsprung[i].Name)

so in der Art...