Что надо переделать (или добавить) чтобы все работало? 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, ); (поставить пробел между кавычками).