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

Program Program1;Vara:array [1..10] of integer;i:integer;rez:boolean;beginrandomize;write('Массив: ');for i:=1 to 10 dobegina[i]:=random(5);write(a[i],',');end;rez:=false;for i:=1 to 10 dobeginif (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(' Есть одинаковые соседние элементы') elsewriteln(' Нет одинаковых соседних элементов');end.