Язык Pascal. Программирование для начинающих

var
i,n,a,b:integer;
x:array[1..1000] of integer;
begin
a:=0;
b:=0;
    for i:=1 to 30 do
       begin
         x[i]:=random(23)-2;
         write(x[i]:4);
       end;
          for i:=1 to 30 do
               if x[i]>=0 then
                 a:=a+1
               else
                 b:=b+1;
             writeln;
              if b>0 then
                    writeln(' не все элементы в последовательности являются положительными')
                    else
                    writeln(' все элементы в последовательности являются положительными')
end.