Вычислить сумму положительных элементов массива, последующих за заданным - Turbo Pascal

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

Здравствуйте. Очень срочно нужна программа, помогите пожалуйста. Известно, что в массиве х(n) есть один элемент = 1. Определить где он находится и вычислить сумму положительных элементов последующих за ним.

Решение задачи: «Вычислить сумму положительных элементов массива, последующих за заданным»

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

uses crt;
const n=10;
var a:array [1..n] of integer;
i,ied,s:integer;
begin
clrsrc;
randomize;
for i:=1 to n do
a[i]:=random(100)+3;
a[5]:=1;
{создание можешь переписать}
writeln('Massive :');
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do
if a[i]=1 then ied:=i;
writeln('Edinica nahoditsa na ',ied,' meste');
s:=0;
for i:=ied to n do
s:=s+a[i];
writeln('Summa posle 1 = ',s);
readkey;
end.

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

В первой строке кода используется библиотека crt, которая является стандартной для языка Turbo Pascal.
В следующей строке задается константа n, которая определяет максимальное количество элементов в массиве a.
Далее объявляются переменные a, i, ed и s. Переменная a представляет собой массив из n элементов типа integer. Переменные i и ed используются для цикла for, а переменная s используется для хранения суммы положительных элементов.
В строке с randomize вызывается функция randomize, которая генерирует случайное число в диапазоне от 0 до 99 для каждого элемента массива a.
Затем следует цикл for, который заполняет массив a случайными числами от 0 до 99.
После этого выводится сообщение Massive : и все элементы массива a выводятся на экран через пробел.
Далее идет еще один цикл for, который начинается с индекса i и продолжается до конца массива a. Внутри цикла проверяется условие if a[i] = 1, и если это условие истинно, то значение i сохраняется в переменной ed.
После этого выводится сообщение Edinica nahoditsa na, ed, meste, где ed - это значение переменной, которое было сохранено в предыдущем цикле.
Затем переменная s инициализируется нулем.
Далее идет еще один цикл for, который начинается с индекса ed и продолжается до конца массива a. Внутри цикла каждый элемент массива a прибавляется к переменной s.
После окончания второго цикла for выводится сообщение Summa posle 1 =, значение переменной s.
Конец программы завершается вызовом функции readkey, которая позволяет пользователю ввести данные.