Получить сумму всех членов последовательности - Pascal ABC

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

Даны натуральное число n, целые числа a1, x1, ... , xn. Если в последовательности x1, ... , xn есть хотя бы один член, равный a, то получить сумму всех членов, следующих за первым таким членом; в противном случае ответом должно быть число -10.

Решение задачи: «Получить сумму всех членов последовательности»

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

var  n,a,x,i,k,s:byte;
begin
write('Введите размер последовательности n=');
readln(n);
write('Введите число a=');
readln(a);
k:=0;
s:=0;
writeln('Введите ',n,' целых чисел');
for i:=1 to n do
 begin
  readln(x);
  if k=1 then s:=s+x
  else if x=a then k:=1;
 end;
if k=0 then writeln('-10')
else writeln(s);
end.

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

Создается переменная n типа byte, которая будет хранить введенное пользователем число.
Создается переменная a типа byte, которая будет хранить введенное пользователем число.
Создается переменная x типа byte, которая будет хранить введенное пользователем число.
Создается переменная i типа byte, которая будет использоваться как счетчик для цикла.
Создается переменная k типа byte, которая будет использоваться для отслеживания первого введенного числа.
Создается переменная s типа byte, которая будет использоваться для хранения суммы введенных чисел.
Выводится сообщение с просьбой ввести размер последовательности.
Выводится сообщение с просьбой ввести число a.
Инициализируются переменные k и s нулевыми значениями.
Выводится сообщение с просьбой ввести n целых чисел.
Начинается цикл for, который выполняется n раз.
В каждой итерации цикла считывается введенное пользователем число и сохраняется в переменной x.
Если k равно 1, то к переменной s прибавляется значение x.
Если значение x равно a, то устанавливается значение k равным 1.
После завершения цикла выводится сообщение в зависимости от значения переменной k.
Если k равно 0, то выводится -10.
Иначе выводится сумма введенных чисел, хранящаяся в переменной s.