Формирование массивов

uses crt;
var
   neg,pos,zer,i:integer;
   dec:array [1..31] of real;
 
begin
clrscr;
     randomize; zer:=0; neg:=0; pos:=0;
     for i:=1 to 31 do begin
         dec[i]:=random()*11-20;
         
         if dec[i]<0 then neg:=neg+1 else
            if dec[i]>0 then pos:=pos+1 else
               zer:=zer+1;
         writeln(i,'-го декабря было: ',dec[i]:2:1,' град.');
     end;
     writeln;
     writeln('с нулевой:',zer);
     writeln('с отриц:',neg);
     writeln('с полож:',pos);
     readkey;
end.

uses crt;
var
   rain,i:integer;
   h:array [1..30] of real;
 
begin
clrscr; randomize; rain:=0;
     for i:=1 to 30 do begin
         h[i]:=random(20);     // не знаю какую формулу ставить, очень дождливо получается
         if h[i]>0 then rain:=rain+1;
         writeln(i,' Sept. was : ',h[i]:2:1,' mm.');
     end;
     writeln;
     writeln('..count of rainy days: ',rain);
     readkey;
end.

uses crt;
var
   nope,i:integer;
   even,zero,h:array [1..16] of integer;
 
begin
clrscr; randomize;
     writeln('Array :');
     for i:=1 to 16 do begin
         h[i]:=random(41)-20;
         if h[i]=0 then zero[i]:=i;               // ищем нулики и собираем индексы в др массиве
         if h[i] mod 2 = 0 then even[i]:=i;   // ищем четные -=-
         write(h[i]:4);
     end;
     writeln;
     writeln('..index of zero: ');                // выводим нулики
     nope:=0;
     for i:=1 to 16 do
         if zero[i]<>0 then write (zero[i]:4) else
            nope:=nope+1;
         if nope=16 then write('Sorry, there is no zero..');
     writeln;
     writeln('..index of even: ');               // выводим четные
     nope:=0;
     for i:=1 to 16 do
         if even[i]<>0 then write (even[i]:4) else
            nope:=nope+1;
         if nope=16 then write('Sorry, there is no even..');
     readkey;
end.