простая задача на массив, девушке срочно требуется помощь Опции

[pusha]

помогите, пожалуйста, девушке-блондинке... )) ни разу не работала с массивами, а здесь придется... программа простая сама понимаю.., но вам же не сложно мне помочь и написать вот это: Даны целые числа а1,а2,...,аn, среди которых могут быть повторяющиеся. Составьте новый массив из чисел, взятых по одному из каждой группы равных членов данной последовательности. Очень прошу..., буду благодарна за любую помощь...

[мисс_граффити]

ну раз мало того, что девушке, так еще и блондинке....
если я правильно поняла задание - то что-то вроде такого:

program blondi;
const n=10;
var a,b:array[1..n]of integer;
fl:boolean;
i,j,kol:integer;
begin
randomize;
kol:=0;
for i:=1 to n do
  begin
  a[i]:=random(10);
  fl:=true;
  write(a[i], ' ');
  for j:=1 to kol do
    if b[j]=a[i] then
      fl:=false;
  if fl then
    begin
    inc(kol);
    b[kol]:=a[i];
    end;
  end;
writeln;
for i:=1 to kol do
  write(b[i],' ');
readln;
end.