Структура программы для мк (с, асм)

     Запишем вычисление суммы "в столбик", помня, что вычисления проводятся в системе счисления по некоторому основанию n>7. Почему именно n>7? Потому, что если бы основание системы было равно или меньше семи, в записи числа цифра семь не могла бы существовать.
   12
+ 17

   31
     В младшем разряде 2+7=1, чего быть не может, следовательно, 2+7=11 и единица пошла в старший разряд. Подтверждение этому мы видим при сложении в старшем разряде: 1+1+1=3 (учтена единица от переноса).
     Мы знаем, что 2+7=9 в десятичной системе счисления, а у нас получилось 11. Находим разницу: 11-9=2. Именно на столько основание системы счисления меньше десяти. 10-2=8. Следовательно, система счисления восьмеричная.
ответ: в восьмеричной системе счисления.

Заменяет в строке
var
  s : string;
  i, lim : integer;
begin
  readln (s);
  i := 1;
  lim := length (s);
  while (i <= lim) do
  begin
    if s[i] in ['1'..'9'] then
    begin
      if (s[i] = '1') and (i <> length (s)) and (s[i+1] ='0') then
      begin
        write ('ten');
        inc (i);
      end
      else
      case s[i] of
        '1' : write ('one');
        '2' : write ('two');
        '3' : write ('three');
        '4' : write ('four');
        '5' : write ('five');
        '6' : write ('six');
        '7' : write ('seven');
        '8' : write ('eight');
        '9' : write ('nine');
      end;
    end
    else write (s[i]);
    inc (i);
  end;
end.