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

const n=10;
var a:array[1..n] of integer;
    i,imx,imn,x:integer;
begin
writeln('Введите элементы массива целые числа');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
writeln('Введенный массив');
for i:=1 to n do
write(a[i],' ');
writeln;
imx:=1;
imn:=1;
for i:=1 to n do
if a[i]>a[imx] then imx:=i
else if a[i]<=a[imn] then imn:=i;
writeln('Первый максимальный=a[',imx,']=',a[imx],' последний минимальный a[',imn,']=',a[imn]);
x:=a[imx];
a[imx]:=a[imn];
a[imn]:=x;
writeln('Обмен этих элементов');
for i:=1 to n do
write(a[i],' ');
end.

const n = 10;
var a: array [1..n] of integer;
    i, imax, imin: byte;
    x: integer;
begin
  imax := 1; imin := 1;
  for i := 1 to n do begin
    write('a[', i, '] = '); readln(a[i]);
    if a[imin] >= a[i] then imin := i;
    if a[imax] < a[i] then imax := i;
  end; 
  x := a[imin]; a[imin] := a[imax]; a[imax] := x;
  for i := 1 to n do write(a[i], ' ');
end.

var
a:array[1..10]of integer;
nomerMax,nomerMin,i,t:integer;
begin
nomerMax:=1;
nomerMin:=1;
for i:=1 to 10 do
begin
read(a[i]);
if a[i]>a[nomerMax] then nomerMax:=i;
if a[i]<=a[nomerMin] then nomerMin:=i;
end;
t:=a[nomerMin];
a[nomerMin]:=a[nomerMax];
a[nomerMax]:=t;
for i:=1 to 10 do
write(a[i],' ');
end.