Выход из процедуры лучше оформить не через абсолютную ссылку.
В приложении немного модифицированный код
Для кодирования 124 номеров необходимо 66 бит
var a,b,k:integer;
begin
b:=random(10)+1;
WriteLn('Какое число я загадал?');
k:=3;
repeat
Write('У тебя ',k,' попытки(-а). Введи число: ');
ReadLn(a);
if a>b then WriteLn('Мое число меньше!')else
if a<b then WriteLn('Мое число больше!')else
if a=b then
begin
WriteLn('Молодец! Угадал!');
k:=0;
end;
k:=k-1
until k<=0;
if k=0 then WriteLn('Проиграл!');
end.
До: 2 байта\символ
После: 1 байт\символ, размер сократился на 240 бит
Решение: 240\8=30 байт
поскольку 30\1=30, размер сообщения = 30 символов.