Удалить из массива(одномерного) все повторяющиеся числа(Delphi)

[Махор]

Вобщем мне сказали у вас есть эта задача уже готовая, но блин никак не могу найти. Киньте пожалуста ссылку или само решение, буду очень благодарен)

[bill]

Полагаю это?

[kommunist]

program zzz;
uses crt;
const n = 100;
var a, b : array[1..n] of integer;
    i, j, b_index : integer;
    exists : boolean;
begin
 randomize;
 clrscr;
 for i:=  1 to n do
begin
a[i]:=random(10);
write(a[i]:2,' ');
end;
writeln;
writeln;
 b_index:=0;
 for i:=1 to n do
  begin
   exists:=false;
   for j:=i + 1 to n do
    if (a[j] = a[i]) then
     begin
      exists:=true;
      break;
     end;
   if (not exists) then
    begin
     inc(b_index);
     b[b_index]:=a[i];
    end;
   writeln;
   for i:= 1 to n do
begin
   write(a[i]:2,' ');
  end;
 readln;
end.

[Махор]

kommunist, не мог бы прокоментировать не которые моменты кода, например где он удаляет из массива повторяющиеся элементы, а то как вели массив (a[i]) так его и вывели без изменений. И еще одного End не хватает вроде, посмотри еще раз пожалуста, может быть ты что то пропустил.

[Махор]

kommunist, твой код очень помог, спасибо задачу решил, правда изменил не много.