Xin code ct đảo mảng và kt đối xứng trong mảng 1 chiều

hôm trc' thầy cho code đảo mảng và kt mảng đối xứng nhưng mih quên mất rùi. bạn nào có thì post lên cho mih xin nha. tks

Đảo chiều mảng:
i:=1;
j:=n;
while i<j do
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
i:=i+1;
j:=j-1;
end;

Kiểm tra đối xứng:
kt := true;
i:=1;
j:=n;
while (i<j) and (kt) do
begin
if a[i] <> a[j] then kt:=false {kt:=(a[i]=a[j])}
i:=i+1;
j:=j-1;
end;
if kt then write('mang doi xung');