Простая функция на Pascal - TimeToStr

Очень простая на Паскаль.

Входные параметры - дата.

Выходной параметр - дата "строкой" в формате "20151231235959".

Основная сложность - нельзя использовать никакие функции! Вообще.

Никаких TimeDataToStr, IntToStr, Ord, Chr, Str и прочих.

Вызовов функций быть не должно - функция будет работать в МК.

Но одну функцию вызывать можно - INT_TO_BCD (см ниже).

Также выходной параметр типа "array [0..13] of byte"!

Описание такое:

type TByteStr = array [0..13] of byte;

procedure TDToByteStr(

Year, Month, Day, Hour, Minute, Second: Integer;

var D: TByteStr

);

Описание INT_TO_BCD:

x := INT_TO_BCD(9999);

Результат: x = $9999

Это интересная чистая задачка для разминки мозгов с утра.

Время задачи ограниченно - нужно сделать сегодня.