Pascal! Ввести массив из 5 элементов, найти в нём макс. и мин. элемент и их номера. Плз

begin
  var a:=ReadArrReal('Введите 5 чисел:',5);
  var i:=a.IndexMax;
  Writeln('Максимум A[',i+1,']=',a[i]);
  i:=a.IndexMin;
  Writeln('Минимум  A[',i+1,']=',a[i])
end.


Введите 5 чисел: 3.4 6.1 -5.2 0 2
Максимум A[2]=6.1
Минимум  A[3]=-5.2