Mọi người ơi giúp em. Tạo mảng B gồm phần tử là các số nguyên hãy liệt kê ra màn hình các số nguyên dương có trong mảng B.

program soduong;

uses crt;

var B:array[1..10000] of integer;

       n,i,d:integer;

begin

clrscr;

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

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

for i:=1 to n do

 begin

  write('B[',i,'] = ');

  readln(B[i]);

 end;

d:=0;

write('Cac phan tu duong co trong mang B la: ');

for i:=1 to n do

 if A[i]>0 then

  begin

   write(B[i],' ');

   d:=d+1;

  end;

if d=0 then write('Khong co. Xin loi!');

readln

end.

program phuongt;

uses crt;

  var B: array[1..500] of integer;

        n, i: integer;

begin

          clrscr;

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

          for i:=1 to n do

          begin

                       write('B[',i,'] = '); readln(B[i]:4);

          end;

          write('Cac phan tu duong trong mang B la: ');

          for i:=1 to n do if B[i]>0 then write(B[i]);

          readln

end.