Заполнить массив из 10 элементов случайными числами в интервале от 0 до 4 и определить, есть ли в нем одинаковые соседние элементы. В Паскале АВС

Program Program1;

Var

a:array [1 ... 10] of integer;

i:integer;

rez:boolean;

begin

randomize;

write ('Массив: ') ;

for i:=1 to 10 do

begin

a[i]:=random (5) ;

write (a[i],',') ;

end;

rez:=false;

for i:=1 to 10 do

begin

if (i>1) and (a[i]=a[i-1]) then rez:=true;

if (i<10) and (a[i]=a[i+1]) then rez:=true;

end;

if rez then writeln (' Есть одинаковые соседние элементы') else

writeln (' Нет одинаковых соседних элементов') ;

end.