Дано целое число N и набор из N вещественных чисел. Вывести в том же порядке округленные значения всех чисел из данного набора - Pascal

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

нужно написать через array Series7. Дано целое число N и набор из N вещественных чисел. Вывести в том же порядке округленные значения всех чисел из данного набора (как целые числа), а также сумму всех округленных значений.

помогите плиз сам никак не могу это сделать(

Решение задачи: «Дано целое число N и набор из N вещественных чисел. Вывести в том же порядке округленные значения всех чисел из данного набора»

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

program nub;
var i, s, n: integer;
    a: array [1..100] of real;
begin
randomize;
write('n = '); readln(n); s := 0;
For i:=1 to n do
Begin
   a[i] := random * 100;
   write(round(a[i]),' ');
   s:=s+a[i];
End; 
write(s);
readln
end.

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

В данном коде на языке Pascal происходит следующее:

Объявляются переменные: i, s, n - целочисленного типа, а переменная a - массив из 100 вещественных чисел.
С помощью функции randomize и цикла for инициализируется генератор случайных чисел.
Выводится сообщение «n = », после чего считывается значение переменной n с помощью функции readln.
Переменная s инициализируется значением 0.
Вложенный цикл for проходит n раз. На каждой итерации:
- Считывается случайное число от 0 до 99 (a[i] := random * 100) и записывается в соответствующую ячейку массива a.
- Выводится округленное значение числа a[i] с помощью функции round и пробел.
- Значение переменной s увеличивается на сумму a[i].
По окончании цикла выводится значение переменной s.
Выводится символ новой строки с помощью функции readln.