Массив. Получить сумму всех элементов, следующих за первым таким элементом А

[Rarrih]

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

[newerow1989]

const n=10;
      a=6;
var x:array[1..n] of integer;
    i,ai,s:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      x[i]:=Random(21);
      Write(x[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   ai:=0;
   For i:=1 to n do
      If a=x[i] then
      begin
         ai:=i;
         Break;
      end;
   s:=10;
   If ai<>0 then
   begin
      s:=0;
      For i:=ai+1 to n do
         s:=s+x[i];
   end;
   Writeln(s);
   Readln;
end.

[Аватар]

В этом же цикле можно и последовательность получать, тогда и массива ни какого не нужно

   ai:=10; Exists:=False;
   For i:=1 to n do
    if Exists then Inc(ai,x[i])
    else if a=x[i] then begin Exists:=True; ai:=0; end;

[Rarrih]

можно вывод сделать через memo ?

[newerow1989]

А не проще ли ответ выводить через Label?

[Rarrih]

еще такой вопрос, какие элементы должны быть на форме?