Когда появляется необходимость использования СУБАЛГОРИТМОВ ? Приведите примеры

Интересная задачка.
попробую объяснить как решал.
сначала расставим то, что известно однозначно.
это то, что Николай встречается со Ольгой
потом Толя - поросенок. потом Миша - Томин
на этом все. теперь размышляем.
Сидоров не Толя и не Саша. а так же не Николай(потому что пришел с Леной)
остаются Вася и Миша. однако фамилию Миши мы знаем. следовательно Сидоров - Вася.
Сразу же записываем к Васе Лену.
теперь с маской.
Он не кот(Иванов), не собака(Петров), не поросенок(Толя), не бычок(Света) следовательно он мишка.
Толя пришел не с Таней и не со Светой. так же не с Леной(Вася) и не с Ольгой. остается только Катя.
Толя не Сидоров(Вася), не Томин (миша), не Иванов(Катя), не Петров(собака) остается Васильев
Николай не Сидоов(Вася), не Томин(миша), не Васильев(Толя) и не Петров(пунтк 1)
следовательно он Иванов.
сразу пишем к нему кота
остается одна фамилия - Петров и это Саша
так же сразу пишем собаку к нему.
из масок остался только бык - Миша
с быков встречается Света
ну и последняя девушка Таня остается Саше
вот и все)
 но можно последовать совету, который написали раньше и составить бооольшую таблицу. тот вариант действительно нагляднее

Var
  t, h, mm, ss: integer;
  ct, ch, cmm, css: string;

begin
  Write('Введите время в секундах от начала суток -> ');Readln(t);
  h := t div 3600;
  t := t mod 3600;
  mm := t div 60;
  ss := t mod 60;
  Str(h, ch);
  ct := ch + ':';
  Str(mm, cmm);
  if Length(cmm) = 1 then ct := ct + '0' + cmm + ':' else ct := ct + cmm + ':';
  Str(ss, css);
  if Length(css) = 1 then ct := ct + '0' + css else ct := ct + css;
  Writeln('Указано время ', ct)
end.

Тестовое решение:
Введите время в секундах от начала суток -> 27429
Указано время 7:37:09