Даны n чисел. знайти сумму чисел більше ніж заданное число а. (тема : одновимірні масиви)

Var
a:array[1..100]of longint; 
n,m,k,i,l,a:longint;
begin
 readln(a);
 readln(n);
 for i:=1 to n do
begin
 readln(a[i]);
if a[i]>a then k:=k+a[i];
end;
writeln(k);
readln;
end.