Дан массив, все его элементы увеличить в два раза

Var ar:array[1 ... 10] of integer;

i:integer;

begin;

writeln ('Введите массив');

for i:=1 to 10 do

begin;

readln (ar[i]);

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

end;

writeln ('Final array:');

for i:=1 to 10 do

write (ar[i]:6);

end.