Определить симметричны ли элементы в массиве (одномерном) относительно центрального или центральных?

//Pascal ABC.NET v3.1 сборка 1219Const  n=5; Var ar:array[1..n] of integer; i:integer; b:boolean;begin b:=true; writeln('Array:'); for i:=1 to n do readln(ar[i]); for i:=1 to n div 2 do if ar[i]<>ar[n-i+1] then b:=false; if b=true then writeln('Симметричны') else writeln('Не симметричны');end.Пример ввода:12321Пример вывода:Симметричны