Оставить в одномерном массиве только уникальные значения

[phlamey]

Вот. Дан одномерный массив целых чисел. И нужно в другой массив записать уникальные значения из заданного массива, ну тоесть чтобы числа не повторялись.
Кто-то может помочь или хотябы подкинуть пошаговый алгоритм?

[Don Karleone]

var
a,b: array [1..20] of Integer;
i,j,k: Integer;
flag: boolean;

begin
randomize;
writeln('Массив чисел:');
for i:=1 to 20 do
begin
a[i]:=random(10);
write(a[i]:3);
end;
writeln;
b[1]:=a[1];
k:=1;
for i:=2 to 20 do
begin
flag:=false;
j:=1;
while not flag and (j<=k) do
begin
if a[i] = b[j] then flag:=true;
Inc(j);
end;
if not flag
then
begin
Inc(k);
b[k]:=a[i];
end;
end;
writeln('массив уникальных чисел:');
for i:=1 to 20 do
write(b[i]:3);
readln;
end.

[phlamey]

оу, да, работает. спасибо большое)

[ROMA2PVT]

Uses
  CRT;
var
  a,b:array[1..100] of integer;
  i,j,n,m,k:integer;
begin
  clrscr;
  randomize;
  write('Введите количество элементов массива: ');
  readln(n);
 writeln('Исходный массив: '); 
 for i:=1 to n do
  begin
    a[i]:=random(10)-5;
    write(a[i]:3,' ')
  end;
  writeln;
  m:=0;
  for i:=1 to n do
  begin
    k:=0;
    for j:=1 to m do
      if a[i]=b[j] then
        inc(k);
    if k=0 then
    begin
      inc(m);
      b[m]:=a[i]
    end;
  end;
  writeln('Полученный массив: ');
  for i:=1 to m do
    write(b[i]:3,' ');
end.

[Grag]

Don Karleone! Ты сам то свой шедевр проверял?!
Или ты нифига задачу не понял...

в другой массив записать уникальные значения из заданного массива