"viết chương trình nhập vào số nguyên có ba chữ số và xuất ra số đảo ngược" giải giúp tôi theo cách của lớp 8 nhé

Program BTH;
uses crt;
var a:array[1..3] of byte;  
n,i:longint;
begin
    clrscr; 
    write('Nhap n: ');readln(n);
    a[1]:=n mod 10;
    a[2]:=n div 10;
    a[3]:=a[2] div 10;
    a[2]:=a[2] mod 10;
    write('So dao nguoc la: ');
    For i:=1 to 3 do 
    write(a[i]);
    readln;
end.

uses crt;

var a, b, c, n : integer;

begin

clrscr;

write('Nhap so co 3 chu so : '); readln(n);

a := n div 100;

b := (n - a * 100) div 10;

c:= (n - a * 100) mod 10;

write('So dao nguoc : ', c * 100 +  b * 10 + a);

readln

end.