Поменять местами элементы с четными и нечетными индексами

 Const M=10000;
var
  Form1: TForm1;
     N,D:Integer;
     Mas:array[1..M] of integer;
     Pr,Per:integer; //просмотры и перестановки
implementation
 
uses
  Unit2;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var               //локальные переменные процедуры
i:integer;        //целочисленный параметр числа
s:string;         //строковая переменная
begin
 //защитный блок
try
   N:=StrToInt(LabeledEdit1.Text);      //получить размер массива
   D:=StrToInt(LabeledEdit2.Text);      //получить диапозон
except       //обработка ошибки
    on e:Exception do
    begin
    ShowMessage('Ошибка ввода!'+ #13 + e.Message) ;
    Exit;
  end;
end;
 
   randomize;      // инициация генератора случайных чисел
 
    for i :=1  to N do     // цикл заполнения массива
    begin
      mas[i]:=random(D);     //случ. число 0..(D-1) -> mas[i]
      //формирование строки для вывода
      s:=s+IntToStr(mas[i])+' ';
    end;
      Memo1.Lines.Clear;
      Memo1.Lines.Add(s);  //вывести строку в Memo1
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Sort1;    //вызов процедуры сортировки
OutMas(RadioGroup1.ItemIndex);    //вывод массива с помощью процедуры
end;
 
  procedure TForm1.Button4Click(Sender: TObject);
  begin
  Form1.Close;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Sort2;    //вызов процедуры сортировки
OutMas(RadioGroup1.ItemIndex); //вывод массива с помощью процедуры
end;
 
procedure TForm1.OutMas(k: integer);
var i:integer;
s:string;
begin
//оператор выбора, 0- убывание, 1 - возрастание
case k of
0: for i:=1 to N do s:=s+IntToStr(mas[i])+ ' ';
1: for i:=N downto 1 do s:=s+IntToStr(mas[i])+ ' ';
  { for i :=1  to N do
    begin
      s:=s+IntToStr(mas[i])+' ';  }
      end;
      Memo1.Lines.Add(s);
      StaticText1.Caption:=IntToStr(pr); //вывод     pe per
      StaticText2.Caption:=IntToStr(per);
end;

procedure PP();
var n,i,temp,count: integer;
    str: string;
begin
     count:= 0;
     for i:=0 to trunc(n/2)-1 do begin
         temp := Mas[count];
         Mas[count] := Mas[count+1];
         Mas[count+1]:= temp;
         count:=count+2;
     end;
 
     for i:=0 to n-1 do begin
     str:= str + IntToStr(Mas[i]);
     end;
     Memo1.Lines.Add(str);
end;