đảo ngược các số nguyên trong mảng ví dụ 45 43 22 -123 02 in ra 53 34 22 -321

uses crt;
var i,n:longint;  a:array[1..10000]of longint;
begin
clrscr;
   write(‘Nhap so phan tu: ‘);readln(n);
   for i:=1 to n do
      begin
         write(‘a[‘,i,’]=’);readln(A[i]);
      end;
   for i:=1 to n do
      begin
         if a[i]<0 then write(‘-‘); a[i]:=abs(a[i]);
         repeat
            write(a[i] mod 10);
            a[i]:=a[i] div 10;
         until a[i]=0;
         write(‘ ‘);
      end;
readln
end.