Ввести с клавиатуры или сгенерировать 20 элементов массива

var i,neg,pos,ze: integer;
    a: array[1..20] of integer;
    begin
    for i:=1 to 20 do
        begin
        a[i]:=random(21)-10;
        write(a[i]:4);
        end;
    writeln;
    ze:=0;
    pos:=0;
    neg:=0;
    for i:=1 to 20 do
        begin
        if a[i] >= 0
        then
            if a[i]>0
            then  pos:=pos+1
            else  ze:=ze+1
        else
             neg:=neg+1;
        end;
        if (pos>=neg) and (pos>=ze) then writeln('Positiv: ',pos)
        else
             if (neg>=pos) and (neg>=ze) then writeln('Negativ: ',neg)
             else writeln('Zero: ',ze);
     end.

var i,min,max: integer;
    a: array[1..15] of integer;
    begin
 
    for i:=1 to 15 do
        begin
        a[i]:=random(20);
        write(a[i]:4);
        end;
    writeln;
    max:=a[1];
    min:=a[1];
    for i:=2 to 15 do
        begin
        if a[i] > max
        then max:=a[i];
        if a[i] < min
        then min:=a[i];
        end;
     writeln('Max  ',max,' ','Min  ',min);
     end.