Дополнить одномерный массив n+1-м элементом, значение которого равно количеству нулевых элементов A [1: N, 1: M] — Pascal(Паскаль)

uses crt;
const n=10;
var a:array[1..n+1] of integer;
    i,k:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  a[i]:=random(20)-10;
  Write(a[i],'  ');
  if a[i]=0 then
   inc(k);
 end;
Writeln;
Writeln('K=',k);
a[i+1]:=k;
for i:=1 to n+1 do
 Write(a[i],'  ');
Readln;
end.