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

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017// Внимание! Если программа не работает, обновите версию!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