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

Требуется отсортировать числа

в файле в порядке возрастания.

Замечание: данные в файле должны быть записаны по одному числу в строке.

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.