Đề hơi dài :vv

Bài :

uses crt ;
 var a : array[1..100] of integer ;
  n,sa,sc,min,ad,i,j,d : integer ;
   begin
    clrscr;
write('N=');readln(n);
 for i := 1 to n do
     begin
    write('a[',i,']=');readln(a[i]);
    if a[i] < 0 then sa := sa + a[i];
    if a[i] mod 2 = 0 then 
         begin
        sc := sc + a[i];
        d := d + 1 ;
         end;
     end ;
 min := a[1];
  for i := 1 to n do
    if min > a[i] then min := a[i];
 for i:=1 to n do
    for j := i+1   to n do
        if a[i] < a[j] then
             begin
            ad := a[i];
            a[i] := a[j];
            a[j] := ad;
             end;
    writeln('Tong am: ',sa);
    writeln('Tong chan: ',sc,',TB tong chan: ',sc/d :3:2);
    writeln('Min: ',Min);
    write('Mang sau khi sap xep: ');
    for i := 1 to n do
        write(a[i],' ');
         end.