program сссс;
uses
 crt;
type
 arr1 = array[0..2519] of integer;
 arr2 = array[0..10, 0..300] of integer;

procedure readfromfile(a: arr1);
 var
  f: text;
  i, j: integer;
 begin
  assign(f, 'c:\d1.dat');
  reset(f);
  for i := 0 to 2519 do
   begin
    readln(f, j);
    a[i] := j;
  end;
 end;

procedure entern(n: integer);
 begin
  write('vvedite n = ');
  readln(n);
 end;

procedure sorting(n: integer; a: arr1);
 var
  i, j, k, start, finish: integer;
 begin
  entern(n);
  readfromfile(a);
 for i := 0 to 2519 do
  begin
   if 2519 div n = 0 then
    begin
     start := i;
     finish := start + n -1;
     i := finish;
    end;
   for j := start to finish do
    for k := finish downto start do
     if a[j] < a[k] then
      begin
       a[j] := a[j] + a[k];
       a[k] := a[j] - a[k];
       a[j] := a[j] - a[k];
      end;
  end;
 end;

procedure writetofile;
 var
  a: arr1;
  f: text;
  n, i: integer;
 begin
  sorting(n, a);
  assign(f, 'c:\d2.dat');
  rewrite(f);
  for i := 0 to 2519 do
   begin
    if n = i then
     writeln(f);
    write(f, a[i]);
   end;
 end;

begin
 clrscr;
  writetofile;
 readkey;
end.