Различные числа и случайный порядок Опции

[maks]

1.
Условие:
Дано натуральное число N (0<N<1000000). Сколько различных цифр встречается в его записи?
Входные данные:
Число N вводиться с клавиатуры
122334
Выходные данные:
На экран выдаётся одно число, которое указывает количество различных цифр в числе 4

2.
Условие:
С клавиатуры вводиться число N (0<N<1000). Расположить числа от 0 до N-1 в случайном порядке. (В результате работы алгоритма любая перестановка чисел может встречаться одинаково часто)
Входные данные:
Число N, введённое с клавиатуры. 10
Выходные данные:
Файл Output.txt с набором чисел от 0 до N-1, записанными через пробел
0 5 2 9 3 7 1 8 4 6

[Ivs]

Вот первая:

Код

Program Bandy_Round;

Var
  i,j : Integer;                       { Счетчики в циклах                       }
  k   : Integer;                       { Указатель на последний элемент          }
  n   : Integer;                       { Вводимое число                          }
  m   : Integer;                       { Цифра числа N                           }
  r   : Real;                          { Количество различных букв               }
  a   : Array [1..7] of Word;          { Массив цифр числа N                     }

Begin
  Write('Input N (1< N <1000000): ');  { Ввод числа N                            }
  Readln(n);                           { --------------------------------------- }
  i:=1;                                { i указывает на начало массива a         }
  While n <> 0 do                      { Заполнение массива a цифрами числа  N   }
  begin
     m:=n mod 10;                      { Остаток от деления                      }
     n:=n div 10;                      { Сокращаем число на 10                   }
     a[i]:=m;                          { Присваеваем очередному элементу массива }
     Inc(i);                           { Увеличиваем i                           }
  end;
  k:=i-1;                              { В k указатель на последний элемент      }
  for i:=1 to k do
  begin
     n:=0;
     for j:=1 to k do
        if a[i]=a[j] then Inc(n);      { В n количество встреч цифры в массиве   }
     r:=r+1/n;                         { В r эта цифра без других её вхождений   }
  end;
  Write('Output: ',r:0:0);             { Вывод суммарного количества разных цифр }
  ReadKey;                             { Ждем нажатия любой клавиши              }
End.                                    { Завершаем программу                     }