задача на вывод часто встречающихся цифр Опции

[Kosmik]

Натуральные числа вводятся с клавиатуры до тех пор, пока не будет введено число -1. Написать программу, выводящую введенные цифры: сначала выводится наиболее часто встречающаяся цифра, в конце наименее встречающаяся цифра.

Подскажите пожалуйста как ее решить...может через массив?

[Unconnected]

Тут с массивом, но он используется не для хранения элементов последовательности:)

var mas:array[0..9] of byte;
    a,i,min,max:integer;
begin
  for i:=0 to 9 do mas[i]:=0;
  repeat
    readln(a);
    if (a<>-1) then inc(mas[a]);
  until (a=-1);
  min:=mas[0];max:=mas[0];
  for i:=1 to 9 do
    begin
      if (min>mas[i]) then min:=mas[i];
      if (max<mas[i]) then max:=mas[i];
    end;
  for i:=0 to 9 do
  begin
    if (min=mas[i]) then writeln('Reje vseh vstrechaetsya chislo ',i);
    if (max=mas[i]) then writeln('Chaje vseh vstrechaetsya chislo ',i);
  end;
  readln;
end.

[Kosmik]

Программка конечно работает но выдает не тот результат....она выводит все цифры от 0 до 9 и пишет как часто их используют, но мне все цифры-то выводить не надо.