Элементы массива, равные ноль, заменить на 1. Как это записать в Паскале?

Для 10 элементов for i:=1 to 10 do if a[i]=0 then a[i]:=1;