Заполнить массив Y нарастающими суммами элементов массива X. Вывести последнюю сумму - Pascal

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

Пожалуйста, помогите. Задача:"Заполнить массив Y нарастающими суммами элементов массива X. Вывести последнюю сумму." Более ничего не дано. Попытка друга ~~на фото~~ (не полная). (Фотография текста удалена)

                    Листинг программы
                
 
                        
                          
                    
x:=0;
s:=0;
for i:= 1 to n do
begin
a[i]:= random(201)-100;
j:=x+a[i];
write ('y=',a[i],'':2);
x:=a[i];
s:=s+j;
writeln ('x=',j);
end;
writeln('последняя сумма=',s);
end.

Пока пытаюсь решить сам. Позже скину попытку. Если есть мысли пишите.

Решение задачи: «Заполнить массив Y нарастающими суммами элементов массива X. Вывести последнюю сумму»

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

const n=10;
var x,y:array[1..n] of integer;
    i,s:integer;
begin
randomize;
writeln('Массив Х');
for i:=1 to n do
 begin
  x[i]:=random(10);
  write(x[i]:3);
 end;
writeln;
s:=0;
for i:=1 to n do
 begin
  s:=s+x[i];
  y[i]:=s;
  write(y[i]:3);//это можно не выводить
 end;
writeln;
write('Последняя сумма=',y[n]);
end.

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

Объявляется константа n со значением 10.
Объявляются переменные x и y как массивы размерности от 1 до n со значениями целочисленного типа.
Объявляются переменные i и s типа integer.
Происходит инициализация генератора случайных чисел с помощью процедуры randomize.
Выводится строка Массив Х.
В цикле от 1 до n каждому элементу массива x присваивается случайное число от 0 до 9 с помощью функции random(10).
Выводятся значения элементов массива x.
Переменной s присваивается значение 0.
В цикле от 1 до n переменной s прибавляется значение текущего элемента массива x.
Это суммарное значение записывается в соответствующий элемент массива y.
Выводятся значения элементов массива y. Закомментировано, что это можно не выводить.
Выводится строка с последним значением суммы, которая равна y[n].