Кто может помочь с написанием программы в pascal abc, я просто в массивах не разобрался, спасибо)

Question

Дан вектор, среди элементов которого есть хотя бы один нулевой элемент. Заменить первый из нулевых элементов вектора на 1, оставить остальные элементы без изменения.

kublen · Accepted Answer

for i:=1 to n do
if a[i]=0 then begin
a[i]:=1; exit end;