Одинаковые числа - паскаль

[FlayGlam]

В произвольном массиве из n целых чисел (n<100) найти повторяющиеся элементы и количество повторений каждого из таких элементов.

Исходные данные
Первая строка содержит количество элементов массива n.
Затем следуют элементы массива (целые числа), каждый в отдельной строке.

Результат
Первая строка должна содержать количество повторяющихся элементов в массиве, если повторяющихся элементов нет, то вывести ноль.
Затем идут повторяющиеся элементы массива, если они есть, в каждой строке через пробел сначала сам элемент, а затем количество его повторений (элементы расположены в порядке расположения в массиве первого из повторяющихся элементов).

[Aleksandr H.]

type mas = array [1..100] of byte;
var a, ac, ack : mas;
N,NC : byte;
procedure readdata;
var i,j,k:byte;b:boolean;
f,fout:text;
begin
  assign(f,'inp.txt');reset(f);
  assign(fout,'inp.out');rewrite(fout);
  readln(f,n);
  b:=false;
  NC:=0;
  for i:=1 to n do
   begin
    readln(f,a[i]);
    for j:=1 to i-1 do
      if a[i]=a[j] then {est dublikat}
       begin
         for k:=1 to NC do {smotrim w spiske dublikatov}
          begin
            if ac[k]=a[j] then {w spiske dublikatov est}
               begin
                    inc(ack[k]);
                    b:=true;
                    break
               end
          end;
          if not(b) then {s spiske dublej nety}
            begin
                 inc(nc);
                 ac[nc]:=a[i];
                 ack[nc]:=2;
            end
          else break
       end;
   end;
   writeln(fout,NC);
   for i:=1 to Nc do
     writeln(fout,ac[i],' ',ack[i]);
    close(f); close(fout);
end;
BEGIN
     readdata;
end.

[FlayGlam]

При компиляции он выдает ошибку времени выполнения

[Arigato]

При компиляции ошибку времени выполнения?

[FlayGlam]

[TaLadno]

Да это все Aleksandr H. накосячил, ну надо же какая безответственность, не создал на компе у "юзверя" файлик inp.txt
А еще же наверное забыл зачетку перподу отнести, вместо FlayGlam

FlayGlam, попробуйте исправить промах Aleksandr H. и таки создайте файл самостоятельно.

Сообщение от FlayGlam

Исходные данные
Первая строка содержит количество элементов массива n.
Затем следуют элементы массива (целые числа), каждый в отдельной строке.

Скрин, кстати, можно было еще хуже сделать

[ViktorR]

Исключительно ради баловства сделал со списком:

Program LineList;
const sfin = 'inamber.txt'
Type Tpnode = ^node;
       node = record
          d : word;
          n : word;
          p : Tpnode;
       end;
var beg : Tpnode;
   d, m : word;
   fhin : text;

{Процедура формирования списка}
procedure add(var beg : Tpnode; d : word);
var p : Tpnode;
    t : Tpnode;
begin
   new(p);       {выделение памяти под элемент}
   p^.d := d;    {заполнение элемента}
   p^.n := 1;    {кол-во повторов}
   p^.p := nil;  {указатель на "хвост"}
   if beg = nil then
      beg := p   {инициализируем список}
   else          {ищем конец списка и вставляем}
   begin
      t := beg;
      while t^.p <> nil do
         t := t^.p;
      t^.p := p;
   end;
end;

{Поиск элемента в списке}
procedure find(beg : Tpnode; key : word);
var p, pp : Tpnode;
begin
   p := beg;
   while p <> nil do  {до конца списка}
   begin
      if p^.d = key then {элемент найден}
      begin
         p^.n := p^.n + 1;
         exit;
      end;
      p := p^.p;    {переход к следующему элементу списка}
   end;
   add(beg, key);   {добавим в список, т.к. элемент не найден}
end;

procedure writelist(var beg : Tpnode; sfout : string);
var p, t : Tpnode;
   fhout : text;
begin
   assign(fhout, sfout);
   rewrite(fhout);
   p := beg;
   while p <> nil do
   begin
      writeln(fhout, p^.d : 6, '  ', p^.n:4);
      t := p;
      dispose(t);
      p := p^.p;
   end;
   close(fhout);
end;

BEGIN
   assign(fhin, sfin);
   reset(fhin);
   readln(fhin,m);
   readln(fhin, d);
   add(beg, d);
   m := m - 1;
   while m <> 0 do
   begin
      m := m - 1;
      readln(fhin, d);
      find(beg, d);
   end;
   writelist(beg, 'onamber.txt');
END.

Да, да!. Тут нужен входной файл inamber.txt


Как-то так, ...