Алгоритм Хаффмана Опции

[Pistoletka]

Здравствуйте, я сейчас пишу программу по алгоритму Хаффмана и столкнулась с проблемой: при кодировании, если ввожу такую строку "kkkkkkk", то по идее должно выдавать ошибку о том, что дерево не может быть создано. Подскажите, пожалуйста, как сделать проверку на такой случай, когда мы вводим только одну букву несколько раз?
Вот моя процедура кодирования:

Procedure shifr();
 var i, n:integer;
 begin
  writeln('Введите текст: ');
  readln(s);
  for i := 0 to 255 do  //Инициализация  массива(счетчика)
    mass[i] := 0;
  for i := 1 to length(s) do //подсчет числа символов
    inc(mass[ord(s[i])]);//выдает код i-того символа
  n := 0;
  for i := 0 to 255 do
    if mass[i] <> 0 then begin//Формируем листья дерева
      inc(n);
      new(TMass[n]);
      TMass[n]^.N := Mass[i];
      TMass[n]^.symbol := chr(i);
      TMass[n]^.Left := nil;
      TMass[n]^.Right := nil;
    end;      
  Sort(TMass, N);
  
  //Формируем само дерево
  while n > 1 do 
  begin
    new(p);
    p^.n := TMass[n]^.N + TMass[n - 1]^.N;
    p^.left := TMass[n - 1];
    p^.right := TMass[n];
    TMass[n - 1] := p;
    Dec(n); //Уменьшает значение n на 1
    Sort(TMass, N);
  end;
  
  //Подсчитываем число бит для закодированного текста
  n:=0;
  for i:=0 to 255 do
    if mass[i]<>0 then
      n:=n+mass[i]*length(GetCode(p, chr(i), ''));
  Writeln('Число бит закодированного текста: ',n);    
  
  g := '';  //Кодируем строку
  for i := 1 to length(s) do
  begin
  g:=g+GetCode(p, s[i], '');  
  end; 
Writeln('Закодированный текст: ', g);
end;