Viết chương trình nhập vào một dãy n số tự nhiên. Đếm số chẵn và số lẻ sau đó tính tổng các số chẵn, các số lẻ trong dãy. Help me zới ạ:((

program ct;

uses crt;

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

      i,n,dem1,dem2:integer;

      S1,S2:longint;

begin clrscr;

   write('Nhap so n: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     dem1:=0; dem2:=0; S1:=0; S2:=0;

   for i:=1 to n do

     begin

        if A[i] mod 2=0 then

          begin

             dem1:=dem1+1;

             S1:=S1+A[I];

           end;

        if A[i] mod 2<>0 then

          begin

             dem2:=dem2+1;

             S2:=S2+A[I];

           end;

     end;

   writeln('Co ',dem1,' so chan. Tong cac so chan la: ',S1);

   writeln('Co ',dem2,' so le. Tong cac so le la: ',S2);

readln;

end.

Học tốt!

uses crt;
var A:array[1..1000] of integer;
    n,i,dch,dle,sch,sle:integer;
begin
   clrscr;
   dch:=0; dle:=0; sch:=0; sle:=0;
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
      if A[i] mod 2 = 0 then begin dch:=dch+1; sch:=sch+A[i]; end
      else begin dle:=dle+1; sle:=sle+A[i]; end;
   end;
   write('Co ',dch,' so chan, tong la ',sch);
   writeln;
   write('Co ',dle,' so le, tong la ',sle); 
   readln
end.