Добрый вечер. Можете, пожалуйста, помочь составить программу в PascalABC?

var m:array[1..10] of integer;
i:byte;
begin
for i:=1 to 10 do begin
write('Введите ',i,' элемент массива:);
readln(m[i]);
if m[i]>0 then
m[i]:=m[i]*2;
end;
for i:=1 to 10 do
writeln(i,')',m[i]);
end.