Вводиться файл из натуральных чисел. Требуется отсортировать числа в файле в порядке возрастания.

Замечание: данные в файле должны быть записаны по одному числу в строке. const   m=100; { максимальное количество чисел в файле } var   f:Text;   i,j,n,k:integer;   a:array[1..m] of integer; begin   { читаем данные из файла в массив }   Assign(f,'SuperFile.txt'); Reset(f);   i:=0;   while not Eof(f) do begin Inc(i); Readln(f,a[i]) end;   Close(f);   n:=i;   { сортируем массив по возрастанию методом пузырька }   for i := 1 to n-1 do     for j := 1 to n-i do       if a[j] > a[j+1] then       begin k := a[j]; a[j] := a[j+1]; a[j+1] := k end;   { заполняем файл из массива }   Rewrite(f);   for i:=1 to n do Writeln(f,a[i],' ');   Close(f) end.