Дан массив. Увеличить каждый положительный элемент вдвое и подсчитать их сумму

Const n=10;

var a:array[1 ... n] of integer;

s, i:integer;

begin

writeln ('vvedite massiv=');

for i : = 1 to n do

readln (a[i]);

s:=0;

p:=1;

for i : = 1 to n do

if a[i]>0 then begin

s:=s+a[i];

a[i]:=a[i]*2;

end;

writeln ('s=', s);

readln;

end.