Школьная задача, Массив (последовательность чисел) Опции

[Сержик]

Задали задачу, написал код но что то не проходит ( последний раз писал 7 лет назад)
Дана последовательность целых чисел a1, a2, ..., am . Постройте на ее основе новую
последовательность, содержащую только те числа, которые в исходную
последоватеьность входят по одному разу.

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
n,i,j:byte;
f,k:boolean;
begin
clrscr;
randomize;
repeat
write('Размер последовательности A до ',nmax,'n=');
readln(n);
until n in [1..nmax];
writeln('Последовательнось:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i]:3);
 end;
writeln;
writeln;
writeln('Входят по одному разу:');
k:=false;
for i:=1 to n do
 begin
  f:=true;
  for j:=1 to n do
  if(a[i]=a[j])and(i<>j) then f:=false;
  if f then
   begin
    write(a[i]:3);
    k:=true;
   end;
  end;
if not k then write('Таких чисел нет');
end.

Что то не пойму в чем дело,почему не работает, задачу помогал делать друг (основная работа его)
Буду благодарен за помощь

[Сeржик]

Может выложить тот код который мне сделала программа?

[Lapp]

Может выложить тот код который мне сделала программа?

Нет, уж лучше жабу в рот..
Мы все тут (надеюсь, я в целом правильно выражаю мнение всех завсегдатаев этого форума) уже устали бороться с этими программными построителями блок-схем. БОЛЬШИЙ вред для обучения програмированию трудно себе представить. Советую этот твой "код" стереть с жесткого диска, а сам ЖД выбросить в очко в нужнике. А для построения блок-схемы надо применять не программы, а МОЗГИ, причем НЕ ПОСЛЕ написания проги, а ДО ТОГО. Если ты, как сказал, "какой день мучишься", то лучше покажи хоть что-то из своих наработок. Составить б-с не проблема, но нужна хоть какая-то затравка с твоей стороны. Дело это муторное, и просто так никто делать не станет. Если покажешь, что хоть что-то сделал - мож, кто и сжалится..