Составьте алгоритм и программу для увеличения каждого элемента массива в 2 раза

Var a,b,col:integer;     arr:array [0..100] of integer;     begin writeln('введите длину массива'); readln(col); for b:=1 to col do begin write ('введите элемент массива ==> ');  readln(a); a:=a*2; arr[b]:=a; end; for b:=1 to col do begin writeln('изменённый элемент массива ==>  ',arr[b]); end; end.