Составить программу в массиве с N числами поменять местами максимальное и

min:=a[1];
max:=a[1];
for i:=1 to n do
begin
if a[i]gt;max then begin max:=a[i]; imin:=i; end;
if a[i]lt;min then begin min:= a[i]; imax:=i; end;
end;
buf:=a[imin];
a[imin]:=a[imax];
a[imax]:=buf;
ВТОРОЙ Метод Исполненья Программки:
Var
a: array[1..100] of integer;
i,n,imin,imax: byte;
min,max,buf: integer;
Begin
Randomize;
Write(количество частей: );
Readln(n);
For i:=1 to n do
begin
a[i]:=random(101)-50;
Write(a[i], );
end;
Writeln;
For i:=1 to n do write(a[i], );
Readln
End.