Mọi người giúp mình giải bài này nha. Đây là tin học lớp 11 nha. Viết ra chương trình á nha..... "Cho 1 mảng gồm n phần tử n không vượt quá 100 và giá trị phần tử không vượt quá 200. Hãy cho biết trong mãng có bao nhiêu phần tử âm. Và tính tổng các phần tử không âm"

uses crt;
var n,i,dem:byte;
a:array[1..100] of integer;
    tong:integer;
BEGIN
        clrscr;
        write('Nhap N:'); readln(n);
        dem:=0;         tong:=0;
        for i:=1 to n do
        begin
                write('Nhap a[',i,']');
                readln(a[i]);
                if a[i]>=0 then
                begin
                        inc(dem);
                        tong:=tong+a[i];
                end;
        end;
        writeln('Trong mang co ',n-dem,' phan tu am.');
        writeln('Tong cac phan tu khong am la ',tong,'.');
        readln
END.

program kiemtra;

uses crt;

var A:array[1..100] of integer;

      n,i,da:byte;

begin

clrscr;

write('Nhap so luong phan tu: ');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

{vua nhap vua dem so am}

da:=0;

for i:=1 to n do

 begin

  write('Phan tu thu ',i,': ');

  readln(A[i]);

  if A[i]<0 then da:=da+1;  {neu la so am thi tang da}

 end;

writeln('Trong mang co ',da,' phan tu am');

writeln('Trong mang co ',n-da,' phan tu khong am'); {neu khong phai so am thi la so khong am}

readln

end.