Nhập từ bàn phím 2 mảng 1 chiều A,B sau đó in 2 mảng vừa nhập lên màn hình

uses crt;

var a,b: array[1..1000] of integer;

na,nb: integer;

begin

clrscr;

write ('nhap so phan tu cua mang a: ');  readln (na);

write ('nhap so phan tu cua mang b: ');  readln (nb);

for i:=1 to na do

 begin

  write ('nhap a[',i,']: ');  readln(a[i]);

 end;

for i:=1 to nb do

 begin

  write ('nhap b[',i,']: ');  readln(b[i]);

 end;

write ('mang a: ');

for i:=1 to na do write (a[i],'  ');

write ('mang b: '); 

for i:=1 to nb do write (b[i],'  ');

readln;

end.

program mang;

uses crt;

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

      i,n,m:integer;

begin

clrscr;

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

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

for i:= to n do

 begin

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

  readln(A[i]);

 end;

write('Nhap so luong phan tu cua day B: ');   readln(m);

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

for i:=1 to m do

 begin

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

  readln(B[i]);

 end;

write('Mang A la: ');

for i:=1 to n do

 write(A[i],' ');

writeln;

write('Mang B la: ');

for i:=1 to m do

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

readln

end.