Определить, являются ли все элементы последовательности равными числами

program ex;
type vector=array[1..100] of integer;
var a:vector;
    i,n:integer;
    t:boolean;
begin
write('количество элементов в массиве: ');
readln(n);
for i:=1 to n do
a[i]:=random(2);
write('массив: ');
for i:=1 to n do
write(a[i],' ');
writeln();
for i:=1 to n do
if (a[1]=a[i]) then t:=true
else begin t:=false; 
      write('не все элементы являются равными');
      break;
     end;
 if (t=true) then write('все элементы являются равными');
 end.

program ex;
type vector=array[1..100] of integer;
var a:vector;
    i,n,t:integer;
    k:boolean;
begin
write('количество элементов в массиве: ');
readln(n);
for i:=1 to n do
a[i]:=random(3);
write('массив: ');
for i:=1 to n do
write(a[i],' ');
writeln();
 
for i:=2 to n do
begin
t:=abs(a[i]-a[i-1]);
if (t=1) then k:=true
else
begin 
k:=false;
write('модуль разности не равен 1 между любыми двумя соседними элементами');
break;
end;
end;
if (k=true) then write('модуль разности равен 1 между любыми двумя соседними элементами');
end.