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

[Сержик]

Задали задачу, написал код но что то не проходит ( последний раз писал 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.

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

[Сержик]

Всем большое СПАСИБО!!!!!
Особенно Федосеев Павел тебе отдельная благодарность.
Спасибо за код завтро покажу преподавателю свой код твой и Krjuger
Krjuger тебе тоже большое спасибо. Я просто прогонял твой код и подумал он не правильный, но потом что то щелкнуло у меня решил немного посмотреть и добавил readln; после

read(a[i]);
for i:=1 to n do
 write(a[i]:3);

И все заработало.
Теперь осталось начертить блок схему.
Надеюсь у меня получится.

[Lapp]

Всем большое СПАСИБО!!!!!

Сержик, давай кончай заходить гостем - логинься и сможешь реально прибавлять репутацию тем, кто тебе помог (после 5 постов). Может, тебе так и удобнее, но все же подумай о других. Или ты забыл пароль? Заведи тогда новый акк, а тот я уничтожу.