Тема дано n чисел. найдите сумму чисел,больших заданного числа а

Program n1;
Uses CRT;
Const n=10;
Var x:array[1..n] of integer;
i,s,a: integer;
begin
Writeln('Vvedite chisla');
For i:=1 to n do
readln(x[i]);
Writeln('Vvedite A');
Readln(a);
For i:=1 to n do
if x[i]>a then s:=s+x[i];
Writeln('Summa elementov, bolshih a =',s);
readln
end.