Сформировать два новых массива, в первом будут номера нулевых элементов массива

program rost;
Var i,S, n, k1,k2,p:integer;
    a: array [1..1000] of integer;
    b, c: array [1..1000] of integer;
 Begin
 writeln ('введите размерность массива');
 read(n); 
 randomize;
 For i:=1 to n do Begin
   A[i]:=random(20)-10;
   write(A[i]:6);
 end;
 writeln;
 k1:=0;
 for i:=1 to n do
 if a[i]=0 then p:=i;
 begin
 k1:=k1+1;
 b[k1]:=a[i];
 end;
writeln ('новый массив с номерами нулевых элементов массива:');
for i:=1 to k1 do write(p:8);
k2:=0;
Writeln;
for i:=1 to n do
if a[i] mod 2=0 then begin
k2:=k2+1;
c[k2]:=a[i];
end;
Writeln('новый массив с четными элементами массива:');
for i:=1 to k2 do write(c[i]:6);
end.

program rost;
Var i,S, n, k1,k2,p:integer;
    a,c: array [1..1000] of real;
    b: array [1..1000] of integer;
    f:boolean;
 Begin
 writeln ('введите размерность массива');
 read(n);
 randomize;
 For i:=1 to n do Begin
   if odd(random(2)) then A[i]:=-random*10+random*20
                     else a[i]:=0;
   write(A[i]:6:2);
 end;
 writeln;
 k1:=0;
 for i:=1 to n do
   if a[i]=0
    then
     begin
      k1:=k1+1;
      b[k1]:=i
     end;
f:=false;
writeln ('новый массив с номерами нулевых элементов:');
for i:=1 to k1 do begin write(b[i]:4);f:=true end;
if f then Writeln
     else writeln('нет нулевых');
for i:=1 to n div 2 do c[i]:=a[i*2];
Writeln('новый массив с четными номерами элементов:');
for i:=1 to n div 2 do write(c[i]:6:2);
if n=1 then writeln('нет элементов с четными номерами')
end.

Uses CRT;
Var
a,b,c:array[1..1000] of integer;
i,n,aa,aaa:integer;
Begin
aa:=1;
aaa:=1;
write('Ââåäèòå ðàçìåðíîñòü ìàññèâà: ');
 readln(n);
for i:=1 to n do
 Begin
  write('Ââåäèòå ',i,'-ûé ýëåìåíò ìàññèâà: ');
   readln(a[i]);
 end;
for i:=1 to n do
 Begin
  if a[i]=0 then
   Begin
    b[aa]:=i;
    inc(aa);
   end;
  if a[i] mod 2 = 0 then
   Begin
    c[aaa]:=a[i];
    inc(aaa);
   end;
 end;
writeln('Ìàññèâ ñ íîìåðàìè íóëåâûõ çíà÷åíèé: ');
 for i:=1 to aa-1 do
  write(b[i],' ');
writeln;
write('Ìàññèâ ñ ÷åòíûìè ÷èñëàìè: ');
 for i:=1 to aaa-1 do
  write(c[i],' ');
End.