Заполнить очередь 8 вещественными случайными числами из интервала [-2,2] - PascalABC.NET

Формулировка задачи:

Заполнить очередь 8 вещественными случайными числами из интервала [-2,2]. Найти частное 1 и максимального элемента очереди. Результат поместить в очередь. Удалить 3 элемент из очереди. После выполнения каждой операции выводить содержимое очереди на экран.

Решение задачи: «Заполнить очередь 8 вещественными случайными числами из интервала [-2,2]»

Листинг программы

begin
  var S := New Queue<Real>;
  loop 8 do S.Enqueue(Random*4-2);
  Write('Очередь: '); S.Println;
  WriteLn($'{NewLine}Частное 1 и максимального {S.Max} равно {1/S.Max}');
  Write($'{NewLine}Удалён первый элемент {S.Dequeue}.{NewLine}Осталось: '); S.Println;
  Write($'{NewLine}Удалён второй элемент {S.Dequeue}.{NewLine}Осталось: '); S.Println;
  Write($'{NewLine}Удалён третий элемент {S.Dequeue}.{NewLine}Осталось: '); S.Println;
end.

Объяснение кода листинга программы

Создается объект типа Queue с именем S.
Запускается цикл, который выполняется 8 раз.
В каждой итерации цикла в очередь S добавляется случайное вещественное число, которое получается как (Random*4)-2, где Random - генератор псевдослучайных чисел, а 4 - коэффициент, ограничивающий диапазон случайных чисел до [-2,2].
После завершения цикла выводится сообщение Очередь: и содержимое очереди S выводится с помощью метода Println.
Выводится сообщение, в котором вычисляется частное 1 и максимального элемента в очереди S, а также выводится результат вычисления.
С помощью метода Dequeue из очереди S удаляется первый элемент, и выводится сообщение с названием и значением удаленного элемента, а также остатком элементов в очереди.
Аналогично предыдущему пункту, только удаляется второй элемент.
Аналогично предыдущему пункту, только удаляется третий элемент.