Нужна помощь с информатикой!В файле записано не более 100 целых чисел вывести в другой текстовый файл те же числа отсортированные в порядке возрастания

var {Файл 1.txt необходимо создать } n,i,j,c1:integer; a:array[1..100] of integer; f:text; begin  {чтение данных с файла 1.txt}  assign(f,'1.txt'); reset(f);  i:=0;  while not eof(f) do  begin    i:=i+1;    read(f,a[i]);  end;  n:=i;  close(f); {Сортировка}   for i:=1 to n-1 do   for j:=i+1 to n do     if a[i]>a[j] then         begin          c1:=a[j];          a[j]:=a[i];          a[i]:=c1;         end;  {вывод в файл 2.txt отсортированного массива}   assign(f,'2.txt');  rewrite(f);   for i:=1 to n do    write(f,a[i]:5);   close(f);  end.