уменьшить все элементы с четными индаксами на величину минимального элемента

[ginzor]

В заданном массиве А(20) целых чисел уменьшить все элементы с четными индаксами на величину минимального элемента этого массива.Преобразованный массив отсортировать.Вывести на экран исходный массив и массив после преобразования.число элементов массива ввести по запросу!

[Sparky]

вот

program ex;
var
   a:array[1..20] of integer;
   i,min,k,m,j,n:integer;
begin
     readln(n);
     for i:=1 to n do
         read(a[i]);
     writeln;
     for i:=1 to n do
         write(a[i],' ');
     min:=a[1];
     for i:=2 to n do
         if a[i]< min then
            min:=a[i];
     for i:=1 to n do
         if i mod 2=0 then
            a[i]:=a[i]-min;
     for i:=n downto 2 do
         begin
	       k:=i;
	       m:=a[i];
	       for j:=1 to i-1 do
	           begin
		              if a[j]>m then
                begin
			               k:=j;
	                	 m:=a[i];
                end;
		            if k<>i then
		            begin
			               a[k]:=a[i];
			               a[i]:=m;
              end;
            end;
        end;
        writeln;
        for i:=1 to n do
            write(a[i], ' ');
end.

[ginzor]

Спасибо большое,но у меня что-то в Delphi 7 не работает как надо в самом начале,когда ввожу числа

[Sparky]

просьба писать в самом начале что используется delphi. Если вечером будет актуально, то скину, сейчас на работе

[Anatole]

Вставил между 1-й и 2-й строчкой текст:

{$APPTYPE CONSOLE}
uses
  SysUtils;

и в начале нормально работает(в турбо Делфи)