Решите алгоритм cжатия RLE и Хаффмана:
RLE: PPPOOOUUJK
Хаффман: БЕЛЫЙ СНЕГ, БЕЛЫЙ МЕЛ, БЕЛЫЙ ЗАЯЦ ТОЖЕ БЕЛ, А ВОТ БЕЛКА НЕ БЕЛА - БЕЛОЙ ДАЖЕ НЕ БЫЛА

Пер­вые сим­во­лы кода — «•–» — могут ко­ди­ро­вать толь­ко букву А. С сим­во­ла «–» на­чи­на­ет­ся толь­ко буква Д. Сле­ду­ю­щей бук­вой может быть либо буква А, либо буква Л, од­на­ко, буква А нам не под­хо­дит, по­сколь­ку в таком слу­чае даль­ней­шая рас­шиф­ров­ка не­воз­мож­на. Ком­би­на­ция «–» со­от­вет­ству­ет букве Т, «–••» — букве Д, «•–» — букве А. Итак, шиф­ром за­ко­ди­ро­ва­но со­об­ще­ние АД­ЛТДДТАТ.

Вот ещё на заметку приложил фотографию. Я разбиваю сообщение на буквы и ищу существующую цепочку.

Var
  a: integer;

begin
  while (true) do
  begin
    readln(a);
    if (a = 9999) then
      break
    else
      System.IO.File.AppendAllText('F.txt', IntToStr(a) + System.Environment.NewLine);
  end;
end.

const
  e = 5;//Кол-во курсов и групп

var
  a, b, c, d: integer;
  f: string;

begin
  for a := 1 to e do
  begin
    writeln('');
    writeln('Группа №', a);
    writeln('');
    writeln('Сколько обучающихся сдали на "отлично"?');
    readln(b);
    f += inttostr(b) + ' - ';
    c += b;
    writeln('Сколько обучающихся сдали на "хорошо"?');
    readln(b);
    f += inttostr(b) + ' - ';
    c += b;
    writeln('Сколько обучающихся сдали на "удовлетворительно"?');
    readln(b);
    f += inttostr(b) + ' - ';
    c += b;
    writeln('Сколько обучающихся сдали на "неудовлетворительно"?');
    readln(b);
    f += inttostr(b);
    c += b;
    f := inttostr(c) + ' - ' + inttostr(c - b) + ' - ' + f;
    System.IO.File.AppendAllText('result.dat', f + System.Environment.NewLine);
  end;
end.