В массиве заменить все нулевые элементы суммой всех элементов(паскаль)

Program n1;const n=10;var a: array[1..n] of integer;i,sum: integer;beginrandomize;sum:=0;write('исходный массив: ');for i:=1 to n dobegina[i]:=random(21)-10;write(a[i],' ');sum:=sum+a[i]; end;writeln;write('полученный массив: ');for i:=1 to n dobegin if a[i]=0 then a[i]:=sum;write(a[i],' ');end;end.