Программист торопился и допустил ошибки. Исправьте их. ПОМОГИТЕ ПОЖАЛУЙСТА! ДАМ 33 БАЛЛА

Program n6_250;

Const n=10;

var a: array [1…n] integer;



begin

s:=0

for i:=1 to n do readln(a);

for i:=1 to n do

if i>a then s:=s+a;

write (s);

end.