Симметричность одномерного массива

program nom4;
uses crt;
var
a: array [1..100] of integer;
i,j,k,n,s,p:integer;
begin
write('Введите k=');
readln(k);
writeln('Введите массив:');
begin
for i:=1 to k do
readln(a[k]);
end;
if ((k  mod 2)=0) then p:=1 else p:=2;
n:=k div 2;
begin
for i:=1 to n do
for k:=k downto n+p do
if (a[k]=a[i]) then s:=1 else s:=0;
end;
if s=1 then write('симметричен',n) else write('не симметричен',n);
end.

readln(a[i])

for i:=1 to k do
readln(a[k]);

program nom4;
uses crt;
var
a: array [1..100] of integer;
i,j,k,n,s,p:integer;
begin
write('Введите k=');
readln(k);
writeln('Введите массив:');
for i:=1 to k do
readln(a[i]);
p:=1;
i:=1;
while (i<=k div 2)and(p=1) do
if a[i]<>a[k-i+1] then p:=2
else i:=i+1;
if p=1 then write('симметричен') else
write('не симметричен');
end.

program nom4;
uses crt;
var
  a: array [1..100] of integer;
  i,j,k:integer;
  f: boolean;
begin
write('Введите k=');
readln(k);
writeln('Введите массив:');
for i:=1 to k do
readln(a[i]);
f:=true;
for i:=1 to k do
for j:=k downto 1 do
  if (a[j]=a[i]) and (f=true) then  
    f:=true
    else f:=false
writeln('массив симметричен: ', f);
end.