Написать программу для сложения естественных чисел A и B втроичной системе

Uses
  crt;
var
  num1,num2,num3:integer; 
  chtenie:text;
  zapis:text;

 
фунция перевода числа в троичную систему счисления
function FromDec(n:longint):string;
var
  s:String;
const
  digit:string[16]='0123456789ABCDEF';
begin
  s:='';
  repeat
    s:=digit[(n mod 3)+1]+s;
    n:=n div 3;
  until n=0;
    FromDec:=s;
end;


осоновная программки
begin
читаем из файла
assign(chtenie,'Exemp5.in');
reset(chtenie);
read(chtenie,num1);
read(chtenie,num2);
close(chtenie);

записываем в файл