viết chương trình nhập vào từ bàn phím số nguyên dương M,N (N<-100) và dãy số A1,A2,..An .Đếm xem có bao nhiêu phần tử trong mảng = số M và hiển thị kết quả lên màn hình Mn giúp mk giải bài này với ạ mk đang cần gấp

program demsoluong;

uses crt;

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

      m,n,i,d:integer;

begin

       clrscr;

       write('Nhap M: ');   readln(m);

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

       d:=0;

       for i:=1 to n do

              begin

                     write('A[',i,']= ');    readln(A[i]);

                     if A[i]=m then d:=d+1;

              end;

       write('Trong day A co ',d,' phan tu bang ',m);

       readln;

end.

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

m,n,dem,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap m='); readln(m);

dem:=0;

for i:=1 to n do 

  if a[i]=m then inc(dem);

writeln('So phan tu bang ',m,' la: ',dem);

readln;

end.