Что надо переделать (или добавить) чтобы все работало? program dfgvsdrfg;
Var A: array [1..16] of integer;
k,i:integer;
begin
writeln('исходные значения');
for i:=1 to 16 do
begin
A[i]:=random (41)-20;
write (A[i], '');
end;
writeln;
write('нулевые значения имеют элементы с индексами:')
for i:=1 to 16 do
if A[i]=0 then write (i, '');
end.

Точку с запятой в строке write('нулевые значения имеют элементы с индексами:'); Ну и write (A[i], ''); и write (i, ''); правильнее сделать как (A[i], ' '); и write (i, ' '); (поставить пробел между кавычками).