Разработка программ, связанных с формированием и обработкой одномерных массивов

[Орлов Никита]

В целочисленном массиве Х(5; 11; 7; 9; 6; 3; -8; 1; 0; 2) упорядочить элементы, имеющие четные индексы по убыванию. Найти максимальный элемент среди элементов с нечетными индексами. Напечатать исходный массив и результаты обработки массива.

Массив должен вбиваться в программу не в ручную, а из файла.
Помогите, пожалуйста.

Если вас не затруднит, можно предельно просто и поподробнее...
Заранее вас благодарю!

[NinaSSS]

попробуйте так

program work;
type
 sen = file of integer;
var
 f:sen;
 i,k,j,max:integer;

 a:array [1..15] of integer;
 begin
   assign(f, 'out.txt');
   rewrite(f);
     for i:=1 to 10 do
       begin
         writeln('введите число*',i:1);
         readln(a[i]);
         write(f,a[i]);
       end;


         close(f);
         reset(f);
         writeln('исходный массив');

       begin while not eof(f) do begin
       read(f,a[i]);
           write(a[i]:3);
       end; end;
      reset(f);
      for i:=1 to filesize(f)-1 do
      for j:= i+1 to filesize(f) do begin
      if i mod 2 =0 then begin if a[i]<a[j] then begin
      k :=a[i];
      a[i]:=a[j];
      a[j]:=k;end;end;end; writeln;
       writeln(' результаты обработки массива');
      for i:=1 to 10 do begin
      write(a[i]:3);end;  writeln;
     max:=-1000;
       for i:=1 to filesize(f) do begin
       if odd(i) then if a[i]>max then max:=a[i]; end;

       writeln('максимальный =',max); close(f);
  end.