Помогите с задачкой одномерный массив

[Antowka]

Здравствуйте уважаемые, помогите кто чем может, у меня такая проблема, не могу решить следующую задачу:
Дан одномерный массив A{n} Получить упорядоченный по возрастанию массив из чисел, которые входят в данный массив по одному разу.
Например 1 2 8 7 8 3 4 9 1 Выведет соелующий массив 2 3 4 7 9. Заранее благодарен.

[Викдон]

Const n =10;
var C:array[1..n] of integer;
F:array[1..n] of integer;
i,j,a,g:integer;
srednee:real;
flag:char;
begin


for i:=1 to n do {Ввод массива}
begin
write('Введите ',i,' Элемент');
readln(C[i]);
end;



for i:=1 to n-1 do
for j:=i+1 to n do
if C[i]>C[j] then {Сотируем массив по возрастанию}
begin {Меняем элементы местами}
a:=C[i];
C[i]:=C[j];
C[j]:=a;
end;
g:=1;
flag:='0';
for i:=1 to n do
begin
for j:=1 to n do
if (C[i]=C[j]) and(i<>j) then
flag:='1';

if flag='0' then
begin
F[g]:=C[i];
g:=g+1;
end;
flag:='0';
end;

for i:=1 to g-1 do {Вывод массива}
write(F[i],' ');

readln;

end.

[Antowka]

Викдон, огромное тебе спасибо, очень помог.

[Викдон]

это было легко)))