Одномерный массив

[Гамбит]

вот задача
Дан массив целых чисел размера n(n=10).Получить упорядоченный по возрастанию массив, содержащий все различные числа данного массива.


я набодяжил вот такую прогу, но она немного некоректно работает,выводит не все значения конечого массива.
Пожалуйста помогите! укажите на ошибку!

Program lab_5;
uses crt;
const n=10;
type rofl=array[1..n] of integer;
var i,k,j,t:integer;
a,b:rofl;
begin
clrscr;
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
begin
for j:=i+1 to n do
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
end;
k:=2;
for i:=1 to n-1 do
if a[i]<>a[i+1] then
begin
b[k]:=a[i+1];
k:=k+1;
end;
for i:=1 to k do
write(b[i],' ');
readln;
end.

[Гамбит]

Народ ну помогите плиз.... хоть убей не могу понять в чём ошибка.
соритировка идёт хорошо, а когда убираются одинаковые элементы, тогда и начинаются проблемы

[Скандербег]

  k:=1;
  b[1] := a[1];
  for i:=2 to n do
    if a[i-1]<>a[i] then begin
      k:=k+1;
      b[k]:=a[i];
    end;