Delphi - Очень простая задача!

[honest]

Дан целочисленный массив размера N. Удалить из массива все соседние одинаковые элементы, оставив их первые вхождения.

НЕМОГУ СООБРАЗИТЬ КАКОЕ ИМЕННО УСЛОВИЕ ИСПОЛЬЗОВАТЬ:

var a,b: array [1..10] of integer;
    i,j,n: integer;
begin

write('n='); readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(50);
write('   ', a[i]);
readln(a[i]); end;


j:=1;
for i := 1 to n do
if (a[i]=a[i+1]) and (a[i+1]<>a[i+2]) then begin
b[j]:=a[i]; j:=j+1; end;

write('b[',j,']=',b[j]); readln
end.

[Stilet]

КАКОЕ ИМЕННО УСЛОВИЕ ИСПОЛЬЗОВАТЬ

if (a[i]=a[i+1]) - этого должно хватить...
Только не до конца проходи:

for i := 1 to n-1 do