Информатика, 8класс, как из даты 09.12.2007 перевести системы счисления !!

Const 
  sixteen: string = '0123456789ABCDEF';

function TenIn16(x: integer): string;
var  s: string;
begin 
  repeat   
  s := sixteen[x mod 16 + 1] + s;   
  x := x div 16; 
  until x = 0; 
  if length(s) = 1 then    s := '0' + s; 
  TenIn16 := s;
end;

var 
  f1, f2: text; 
  a1, a2, a3: byte;

begin 
  assign(f1, 'record.txt'); 
  reset(f1); 
  assign(f2, 'result.txt'); 
  rewrite(f2); 
  while not eof(f1) do  
  begin   
    read(f1, a1, a2, a3);   
    writeln(f2, TenIn16(a1), TenIn16(a2), TenIn16(a3)); 
  end; 
  close(f1); 
  close(f2);
end.

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
  a: array of integer;
  i, n: integer;

begin
  write('Введите n ');readln(n);
  SetLength(a, n);
  writeln('Исходный массив :');
  for i := 0 to n - 1 do
  begin
    a[i] := random(-20, 20);write(a[i]:4);
  end;
  writeln;
  writeln('Массив после обработки:');
  for i := 0 to n - 1 do
  begin
    if a[i] < 0 then a[i] := 10;
    write(a[i]:4);
  end;
end.

Тестовое решение:
Введите n 10
Исходный массив :
 -19 -14 -14   1   2  16  16  -6   0  19
Массив после обработки:
  10  10  10   1   2  16  16  10   0  19