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

  imn:=Low(x); imx:=Low(x);
  for i:=Low(x)+1 to High(x) do
    if x[imn]>x[i] then imn:=i
    else if x[imx]<x[i] then imx:=i;
  t:=x[imn]; x[imn]:=x[imx]; x[imx]:=t;

Program PRIM1;
CONST N: =50
VAR I: INTEGER; X: REAL
M: ARRAY [1 . . N ] OF REAL;
BEGIN
WRITELN (’  ’);
imn:=Low(x); imx:=Low(x);
for i:=Low(x)+1 to High(x) do
if x[imn]>x[i] then imn:=i
else if x[imx]<x[i] then imx:=i;
t:=x[imn]; x[imn]:=x[imx]; x[imx]:=t;
End.

program prim1;
uses crt;
const n=50;
var i,imn,imx: integer;
    t: real;
    x:array [1..n] of real;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  x[i]:=9*random;
  write(x[i]:5:2);
 end;
writeln;
imn:=1; imx:=1;
for i:=1 to n do
if x[imn]>x[i] then imn:=i
else if x[imx]<x[i] then imx:=i;
t:=x[imn]; x[imn]:=x[imx]; x[imx]:=t;
writeln('Минимальный элемент=',x[imn]:0:2,' его индекс=',imn);
writeln('Максимальный элемент=',x[imx]:0:2,' его индекс=',imx);
writeln('Обмен минимального и максимального');
for i:=1 to n do
write(x[i]:5:2);
end.