viết chương trình nhập vào một mảng lấy các số chẵn sang mảng mới(làm bằng pascal nhé)

uses crt;
var i,n,m:longint; a,b:array[1..10000]of longint;
begin
clrscr;
   write(‘n=’);readln(n);
   writeln(‘Nhap day so’);
   for i:=1 to n do
      begin
         write(‘a[‘,i,’]=’);readln(a[i]);
      end;
   for i:=1 to n do if a[i] mod 2=0 then begin inc(m); b[m]:=a[i]; end;
   write(‘Mang moi: ‘);
   for i:=1 to m do write(b[i],’ ‘);
readln
end.