program file_von_zahlen_zum_Sortieren; const max = 5000; var dat : file of word; i : integer; a : word; begin assign(dat,'sorting.int'); rewrite(dat); randomize; for i:=1 to max do begin a:=random(65535); write(dat,a); end; close(dat); end.