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.