массивы

Var A:array[1..100] of integer;
    i,n,imin,t:integer;
Begin
    write('Кол-во чисел: ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
    End;
    writeln;
    imin:=1;
    For i:=2 to n do
     if A[i]<A[imin] then imin:=i;
    writeln('Min = ',A[imin]);
    if n>=3 then 
    Begin
      t:=A[3];
      A[3]:=A[imin];
      A[imin]:=t;
      For i:=1 to n do
       write(A[i]:4);
    End
    else writeln('Нету 3-го элемента');
    readln;
End.

Var A:array[1..100] of integer;
    i,n,s,a1,k1,k2:integer;
Begin
    write('Кол-во чисел: ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
      if A[i]<0 then
      Begin
        s:=s+A[i];
        inc(k1);
      End;
    End;
    writeln;
    write('Число A = ');readln(a1);
    For i:=1 to n do
     if (A[i]>a1)and(i mod 2 = 0) then inc(k2);
    if k1>0 then writeln('Среднее арифметическое отрицательных = ',s/k1)
     else writeln('Нету отрицательных');
    writeln('Кол-во элементов >',a1,' = ',k2);
    readln;
End.