Переделать задачу в массив

[Влад.]

program VLAD;
код:
var
 V,a,S : real;
 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.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Dush]

что значит переделать в массив?
если я правильно понял то объявите переменную v как массив и дальше используйте v[i].
если n вводится только с клавиатуры то надо использовать динамический массив