Удаление элементов массива.

[Маx]

Нужно удалить из массива повторяющиеся элементы. Например есть отсортированный массив: 1,2,2,3,5,5,6,7,8,8. Результат должен быть таким: 1,3,6,7. Помогите

[Stilet]

k:=a[1]; write(k:5);
for i:=2 to n do begin
 if a[i]<>k then begin write(a[i]:5);k:=a[i];end;
end;

Идея понятна?

[Маx]

я понял но мне надо немножко не то. мне нужно чтобы он удалил оба одинаковых числа, а не одно из них. А используя этот алгоритм он удаляет только одно из двух одинаковых чисел.

[Paster Fob]

const n=10;

type tarray=array [1..n] of integer;

var a:tarray;
    i:integer;

begin
  for i:=1 to n do
    readln(a[i]);
  if a[1]<>a[2] then
    write(a[1],' ');
  for i:=2 to n-1 do
    if (a[i]<>a[i+1]) and (a[i]<>a[i-1]) then
      write(a[i],' ');
  if a[n]<>a[n-1] then
    write(a[n]);
  readln
end.

[Маx]

Спасибо