Нужно найти максимальный и минимальный элемент массива и поменять их местами

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 var
            M:array of integer;
            i,min,p,k,max:integer;
begin
  randomize;
  memo1.Text:='';
  memo2.Text:='';
  SetLength(M,StrToInt(Edit1.Text));
 
  for i:=0 to high(M) do begin
    M[i]:=random(100);
    Memo1.Text:=Memo1.Text+IntToStr(M[i])+', ';
  end;
    min:=M[0]; p:=0;
  for i:=1 to high(M) do
  if min>M[i] then begin
  min:=M[i]; p:=i;
      end;
 
  i:=M[p];
  M[p]:=M[high(M)];
  M[high(M)]:=i;
 
    for i:=0 to high(M) do
    Memo2.Text:=Memo2.Text+IntToStr(M[i])+', ';
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
const n=30;
var a:array[1..n] of integer;
    i,mn,imn,mx,imx,x:integer;
begin
randomize;
for i:=1 to n do
 begin
  a[i]:=random(100);
  Memo1.Text:=Memo1.Text+IntToStr(a[i])+'  ';
 end;
mn:=a[1];imn:=1;
mx:=a[1];imx:=1;
for i:=2 to n do
 begin
  if a[i]<mn then
   begin
    mn:=a[i];
    imn:=i;
   end;
  if a[i]>mx then
   begin
    mx:=a[i];
    imx:=i;
   end;
 end;
Edit1.Text:='Минимальный='+IntToStr(mn);
Edit2.Text:='Максимальный='+IntToStr(mx);
x:=a[imn];a[imn]:=a[imx];a[imx]:=x;
for i:=1 to n do
Memo2.Text:=Memo2.Text+IntToStr(a[i])+'  ';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
if SaveDialog1.Execute then
Memo2.Lines.SaveToFile(SaveDialog1.FileName);
end;