На основе исходного файла создать массив удвоенных нечетных чисел. Упорядочить его по возрастанию

var
  f,g: text;
  a: array[1..1000] of integer;
  n,i,j,x: integer;
begin
  assign(f,'input.txt');
  reset(f);
  while not eof(f) do
  begin
    read(f,x);
    if odd(x) then
    begin
      inc(i);
      a[i]:=2*x;
    end;
  end;
  n:=i;
  close(f);
  for i:=2 to n do
    for j:=n downto i do
    if a[j-1]>a[j] then
    begin
      x:=a[j-1];
      a[j-1]:=a[j];
      a[j]:=x;
    end;
  assign(g,'output.txt');
  rewrite(g);
  for i:=1 to n do
    write(g,a[i]:4);
  close(g);
  writeln('Ðàáîòà ïðîãðàììû çàâåðøåíà');
  readln;
end.

 while not eof(f) do // пока не достигли конца файла
  begin
    read(f,x);       // читаем очередную компоненту файла (присваиваеме переменной х значение компоненты)
    if odd(x) then   // если число нечетное, то..
    begin
      inc(i);        // увеличиваем счетчик
      a[i]:=2*x;     // очередному элементу массива присваиваем удвоенное значение числа х
    end;
  end;
          // в данный момент i равно размеру массива           
  n:=i;   // числу n присваиваем значение размера массива,
          // это понадобиться нам для сортировки массива

begin
  assign(f,'input.txt');//если файл в папке с программой(например оба на рабочем столе)
//и файл называется именно так (input), то файл
  reset(f);//откроется