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.