Сколько символов можно закодировать с 2 байтов

бесконечное колличество

uses crt; var s:string;     c:char;     m:set of char;     n,i,k,p:byte; begin writeln('Введите текст из строчных латинских букв, окончаание ввода Enter'); s:=''; repeat c:=readkey; if c in ['a'..'z'] then  begin   write(c);   s:=s+c;  end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:='a' to 'z' do  begin   k:=0;   for i:=1 to n do   if s[i]=c then k:=k+1;   if k>1 then m:=m+[c];  end; if m=[] then write('Нет букв, встречающихся более 1 раза') else  for c:='a' to 'z' do  if c in m then write(c) end.

1-я задача: 3-х литровым кувшином наполняем кувшин 8 л. После 3-го наполнения в 
3-х литровом кувшине останется 1 литр. Затем опорожняем 8 литровый кувшин, с 3-х литрового кувшина переливаем один литр в 8-литровый, и туда -же наливаем два раза по 3 литра - получаем 7 л. 
2-я задача: Песочные часы (3-х минутные и 8 минутные) нужно включить за 8 минут до начала приготовления. Через каждые 3 мин переворачиваем 3 минутные часы. По истечении 8 мин, 3-х минутные песочные часы отсчитают 2 мин. В этот момент нужно начать готовить эликсир, через минуту, переворачиваете 3-мин часы и отсчитываете ещё шесть минут (2 раза по 3 мин) . Вот и получите 7 мин!