Умножение двух чисел в p-ичной системе счисления - turbo pascal

[oxygen2007rus]

Нужна помощь. Недавно пришлось вспомнить давно забытый турбо паскаль для института. Сейчас пытаюсь написать программу для умножения двух чисел в p-ичной системе счисления. Перепробовал множество способов, но ничего не получается. Посоветуйте мне что-нибуть. Будет супер если покажете код программы. Заранее спасибо.

[eoln]

Преобразуем в систему счисления = 10, умножаем, снова возвращаем в прежнюю систему

function KToDec(x: string; k: byte): longint;
var
  i: byte;
  y : longint;
begin
  y := 0;
  for i := 1 to length(x) do
    if x[i] < 'A' then
      y := y * k + ord(x[i]) - 48
    else
      y := y * k + ord(x[i]) - 55;
  KToDec := y
end;

function DecToK(x: longint; k: byte): string;
var
  i: byte;
  y: string;
begin
  y := '';
  repeat
    i := x mod k;
    x := x div k;
    if i < 10 then
      y := chr(i + 48) + y
    else
      y := chr(i + 55) + y;
  until x = 0;
  DecToK := y
end;

function ym(x, y: string; k: byte): string;
begin
  ym := DecToK(KToDec(x, k) * KToDec(y, k), k)
end;

var
  a, b: string;
  s: byte;
begin
  write('a = '); readln(a);
  write('b = '); readln(b);
  write('system = '); readln(s);
  write('otvet = ', ym(a, b, s));
  readln
end.