Программирование обработки одномерных массивов даны действительные числа a1, a2, … ,an. поменять местами наибольший и наименьший элементы. на free pascal

const
  n=15;
var
  a: array[1..n] of real;
  i,imax,imin: byte;
  t: real;
begin
  Writeln('Введите ',n,' элементов массива');
  imax:=1; imin:=1;
  for i:=1 to n do begin
    Read(a[i]);
    if a[i]<a[imin] then imin:=i
    else
      if a[i]>a[imax] then imax:=i
    end;
  t:=a[imin]; a[imin]:=a[imax]; a[imax]:=t;
  for i:=1 to n do Write(a[i],' ');
end.