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

[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]

Вот вторая:

Код

(******************************)
(*        Перестановки        *)
(* Алгоритм случайной выборки *)
(******************************)

Var
  i    : Integer;                      { Счетчик в цикле                          }
  N    : Integer;                      { Само число                               }
  Temp : Integer;                      { Вспомогательная переменная               }
  k,j  : Integer;                      { Случайные числа                          }
  A    : Array [0..999] of Integer;    { Массив чисел от 0 до N-1                 }
  F    : Text;                         { Файловая переменная                      }

Begin
  Assign(F,'OUTPUT.TXT');              { Связываем файл. переменную с файлом      }
  Rewrite(F);                          { Открываем для записи                     }
  Write('Input N (1<N<1000): ');       { Ввод числа N                             }
  Readln(N);                           { ---------------------------------------- }
  for i:=0 to N-1 do A[i]:=i;          { Заполняем массив A числами от 0 до N-1   }
  for i:=0 to N-1 do                   { Цикл  случайных перестановок             }
  begin                                { Можно увеличить число итераций           }
     k:=Random(N-1);                   { В k случайное число от 0 до N-1          }
     j:=Random(N-1);                   { В j случайное число от 0 до N-1          }
     Temp:=A[k];                       { Обмен значений двух переменных           }
     A[k]:=A[j];                       { ---------------------------------------- }
     A[j]:=Temp;                       { ---------------------------------------- }
  end;
  for i:=0 to N-1 do Write(F,A[i],' ');{ Вывод уже переставленного массива в файл }
  Close(F);                            { Закрываем файл                           }
End.