. Вывод должен выглядишь так: вводимое слово: Диван, зашифрованный текст : даинв, расшифрованный текст: диван. Ещё надо продумать с четным количеством букв в слове и не с четным

Само собой, числа a1..an надо поместить в массив. Если его упорядочить по возрастанию (или убыванию), то элементы с одинаковыми значениями окажутся рядом и их легко будет пропустить.

var
  a:array[1..n] of integer;
  i,j,t:integer;
begin
  { инициализация массива }
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    a[i]:=Random(10);
    Write(a[i]:3);
  end;
  Writeln;
  { сортировка по возрастанию методом пузырька }
  for i := 1 to n-1 do
    for j := 1 to n-i do
      if a[j] > a[j+1] then
      begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
  { вывод неповторяющихся значений }
  Writeln('Уникальные значения элементов');
  t:=a[1]; Write(t:3);
  for i:=2 to n do
    if a[i]<>t then begin t:=a[i]; Write(t:3) end;
  Writeln
end.

Тестовое решение:
Элементы массива
  9  6  1  6  1  4  5  9  1  2  6  7  7  6  1  7  7  8  0  8
Уникальные значения элементов
  0  1  2  4  5  6  7  8  9

Задание будет иметь кучу вариантов решения. 
Почему? как минимум:
1) неизвестна кодировка, например в UTF-8 для записи одной буквы используется 8 бит, UTF-16 16 бит, UTF-32 32 бита.
2) к чему было дано, что у нас 17 символом? еще если бы дано было конкретные, то можно было бы может в кодировке что понять. 
3) "Все символы кодируются одинаковым", то бишь числа, тоже будут кодироваться (или не будут) таким же количеством битов, как и буквы (бред же : ) ) Если под букву будет 8 бит (1 байт) то нам не нужно 8 бит под числа, нам хватит и 4-х бит.
Может я просто сильно вчитываюсь, но кто знает. Вроде не хватает условий еще.  

Если предположить, что 17 букв кодируются в кодировке UTF-8, то на каждую букву будет 8 бит (1 байт). 
Дальше, если на цифры тоже отводим 8 бит (по условия 3-го пункта) получится 8*5=40 бита на буквы, и 8*2=16 бита на цифры. Итого 56 бит на запись одного логина. 
На запись 50 пользователей = 50*56=2800 бит.

Если числа кодировать минимальным (0-9 цифр) числом бит, то нужно будет на 1 цифру 4 бита (9 в двоичной равно 1001), на две цифры 2 бита.
Итого 8*5=40 бит на буквы, и 4*2=8 бит на цифры, 48 бит логин.
50*48= 2400бит 50 логинов.