В одномерном массиве найти наибольший элемент и поменять его местами с последним

[nawka]

Добрый вечер, уважаемые форумчане, возникли непреодолимые трудности в решении следующей задачи:
"В одномерном массиве найти наибольший элемент и поменять его местами с последним."
А точнее, в том, как понять местами наибольший элемент с последним элементом(((
Заранее, спасибо за помощь!

unit Unit46;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    GroupBox1: TGroupBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1;
  N, I     : integer ;
     X   : array of integer ;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  Begin
	Randomize ;
	N := StrToInt(Edit1.Text) ;
	SetLength(X, N) ;
	Edit2.Text:=' ';
	For  I := 0  to  N-1  do
		Begin
		X[ I ] := Round(Sin(Random(100))*100) ;
Edit2.Text := Edit2.Text +' '+ FloatToStr(X[ I ]) ;
End;
End;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
max:integer;
begin
If  CheckBox1.Checked then Max:=X[0];
Edit3.Text :='';
For  I := 0  to  N-1  do
Begin
If  CheckBox1.Checked then
If  Max < X[I]  then Max := X[I];

End;

If  CheckBox1.Checked then  Edit3.Text:=FloatToStr(max);

End;

end.

[Базиля]

При нахождении максимального, также запоминаем индекс массива.
Допустим:
p:=i;
После нахождения максимального, производим его замену с последним элементом
h:=x[n-1];
x[n-1]:=x[p];
x[p]:=h;

[nawka]

Сообщение от Базиля

При нахождении максимального, также запоминаем индекс массива.
Допустим:
p:=i;
После нахождения максимального, производим его замену с последним элементом
h:=x[n-1];
x[n-1]:=x[p];
x[p]:=h;

Извините, а можете написать как это будет выглядеть полностью?)
Так не работает(
Begin
If CheckBox1.Checked then
If Max < X[I] then Max := X[I]; p:=i;
h:=x[n-1];
x[n-1]:=x[p];
x[p]:=h;

[Serge_Bliznykov]

nawka
не обижайтесь, но Вы настолько бестолко используете
If CheckBox1.Checked
что у меня возникло подозрение, что Вы не понимаете, что такое операторные скобки (ну для чего иногда внутри текста программы встречаются begin ... end )

Да и вообще, мне совсем не ясно и очевидно, что это за чекбокс такой. На что он должен влиять..

подозреваю, что ожидается примерно такой код:

procedure TForm1.Button2Click(Sender: TObject);
var  I, maxIndex:integer;
      h : integer; 
begin
  maxIndex := 0;
  Edit3.Text :='';
  For  I := 1  to  N-1  do 
   If  X[MaxIndex] < X[I]  then MaxIndex := I;

  {для чего-то отобразим на надписи величину максимального элемента}
  If  CheckBox1.Checked then  Edit3.Text := IntToStr( X[maxIndex] );

  {поменять местами последний элемент и максимальный}
   h := X[MaxIndex];
   X[MaxIndex] := X[N-1];
   X[N-1] := h;
  
End;

p.s. а для чего Вы при заполнении массива случайными числами использовали функцию sin() ?! Врагов запутать хотите?! Этим Вы только ухудшили случайное распределение...