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

[Сержик]

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

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

[Федосеев Павел]

Сержик, да. Ввод массива вручную:

  for i:=1 to 10 do
    read(a[i]);
  writeln;

TarasBer, да, и не говори. Зверев(=звезда) в шоке - человек почти самостоятельно (см. первый топик) создал программу на 40 строк и на пртяжении дня делает в ней открытие за открытием.

Сержик, не принимай близко к сердцу, но кое-что ты мог сделать 1) самостоятельно и 2) на сутки раньше.

Сообщение отредактировано: Федосеев Павел - 8.04.2012 22:43