Дан массив целых чисел a1,...,an. Найти минимальный и максимальный элементы массива и поменять их местами.

program ggg;
uses crt;
const n=10;
var i,max,min,k:integer;
a:array[1..n] of integer;
begin
clrscr;
randomize;
for i:=1 to n do begin
a[i]:=random(20);
write(a[i],' ');
end;
max:=a[i];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('max=',max);
min:=a[i];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('min=',min);
for i:=1 to n do begin
k:=max;
max:=min;
min:=k;
end;
for i:=1 to n do begin
write(a[i],' ');
end;
readln;
end.

max:=a[1]

for i:=1 to n do begin
k:=max;
max:=min;
min:=k;
end;

program ggg;
uses
 crt;
const
 n=10;
var
 i,imax,imin,k:integer;
 a:array[1..n] of integer;
begin
clrscr;
randomize;
imax:=1;
imin:=1;
for i:=1 to n do
begin
 a[i]:=random(20);
 write(a[i],' ');
  if a[imax]<a[i] then
  begin
   imax:=i;
  end;
  if a[imin]>a[i] then
  begin
   imin:=i;
  end;
end;
writeln;
writeln('max=',a[imax]);
writeln('min=',a[imin]);
k:=a[imax];
a[imax]:=a[imin];
a[imin]:=k;
writeln;
for i:=1 to n do
begin
 write(a[i],' ');
end;
readln;
end.