Заполнить массив из 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.