Pascal. В одномерном массиве элементы меньше 1 умножить на 2,а остальные увеличить на 3

var x:array [1..10] of integer; i:integer; begin writeln('Введите массив'); for i:=1 to 10 do begin read(x[i]); if x[i]<1 then x[i]:=x[i]*2 else x[i]:=x[i]+3; end; for i:=1 to 10 do write(x[i],' '); end.