Kiểm tra mảng đối xứng trong pascal

Mảng đối xứng: Nhập vào 1 mảng n phần tử (n <1000). Kiểm tra mảng có đối xứng không? (VD: mảng đối xứng : 4  5  -7  5  4 hay  4  7  7  4)

var n,i,tem:longint;f:text;a:array[1..1000]of longint;kt:boolean;

begin

{----Doc file ----}
    assign(f,'mang_dx.inp'); reset(f);
    readln(f,n);
    for i:=1 to n do read(f,a[i]);
    close(f);
{-- Kiem tra-----}
    kt:=true; tem:=n div 2;
    for i:=1 to tem do if a[i]<>a[n-i+1] then
        begin
            kt:=false;
            break;//thoat khoi vong lap
        end;

{----Mo file de ghi----}
    assign(f,'mang_dx.out'); rewrite(f);
 
    if kt then write(f,'Yes') else write(f,'No');
    close(f);
end.