решите в паскале плииис!!!
Дана последовательность вещественных чисел. Выведите на экран значения и номера элементов: наибольшего, наименьшего и наименее отличающегося от средне арифметического значения.
Заранее всем спасибо!

// PascalABC.NET 3.2, сборка 1336 от 14.11.2016begin  var a:=ArrRandomReal(ReadInteger('n='),10,30); a.Println;  Writeln('Наименьший элемент № ',a.IndexMin+1);  Writeln('Наибольший элемент № ',a.IndexMax+1);  var m:=a.Average;  var d:=a.Select((x,i)->(abs(x-m),i+1));  Writeln('Наименее отличается от среднего значения элемент № ',    (d.Min).Item2)end.Примерn= 528.8975487271778 29.3922267944516 10.5457673969426 21.9476794693375 20.9330827234933Наименьший элемент № 3Наибольший элемент № 2Наименее отличается от среднего значения элемент № 4