Если с использованием const, то вот
Объяснение:
Непонятно зачем заполнять массив нулями, когда в нем по умолчанию все элементы равны нулю, но да ладно.
const N=10;
var
a:array [1..N] of integer;
begin
for var i:=1 to N do
a[i]:=0
end.
