Задача

[Влад.]

Дано n чисел, найдите сумму чисел больших заданного числа а. Помогите решить пожалуйста.

[JUDAS]

program VLAD;
var
 V,a,S : double;
 i,N : integer;
begin
 writeln('enter a ');read(a);
 writeln('enter n ');read(n);
 S:=0;
 for i:=1 to n do
 begin
  writeln('element[ ',i,'] = ');read(v);
  if v>a then S:=S+v;
 end;
 writeln('summ = ',S);
 readln; 
end.