Умножение длинных чисел - Pascal ABC (19453)

Формулировка задачи:

Проверьте код,пожалуйста,верно ли реализованна задача: заданы две строки шестнадцатеричных символов (длинное шестнадцатеричное число в символьной форме).Разработать программу умножение первого длинного числа на второе. Произведение в форме строки с шестнадцатеричными символами. Исходные данные извлекаются из входного текста файла, результаты записываются в выходной текстовый файл. Интересует только умножение двух длинных чисел...за ввод и вывод из файла еще не бралась...Может можно как то по короче и по проще для Pascal ABC

program DLUMN;
 
{funkciya dlya preobrazovaniya chisla v stroku}
function roundex(x:real;k:integer):string;
var i:integer;
    s:string;
begin
 Str(x:1:k,S);{preobrazovanie v stroku s zadannim kol-vom znakov}
 roundex:=s;
end;
 
{funkciya dlya polucheniya zadannoy stepeni chisla}
function potens(x , e :longint): real;
var i : longint;
    p : real;
begin
 p := 1;
 if e = 0 then p := 1 else{0-vaya stepen}
 if e < 0 then{esli otricatelnaya stepen}
  begin
   for i := -1 downto e do p := p / x;
  end
 else
  begin
   for i := 1 to e do p := p * x; {vozvedenie v stepen}
  end;
 potens:=p;
end;
 
{funkciya dlya polucheniya nomera cifri}
function digt(ch: char): byte;
const
numstring: string = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
 i: byte;
 n: byte;
begin
 n := 0;
 for i := 1 to length(numstring) do{poisk simvola}
  if ch = numstring[i] then n := i - 1;
 digt := n;{vozvrat nomera}
end;
 
{preobrazovanie iz desyatichnoy v zadannyu sistemu}
function dec2basen(base: integer; dec: real; nd:integer): string;
const numstring: string = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
num : string;
i, j: integer;
c   : longint;
r: real;
snum:string;
begin
 if (dec = 0) or (base <2) or (base >36) then num := '0'
 else
 begin
 num := '';
 i := 0;
 c:=trunc(dec);
 r:=dec-c;
 while potens(base, i + 1) <= c do i := i + 1;{vozvedenie v naivishuy stepen}
 for j := 0 to i do
  begin
   {nakoplenie chisla}
   num := num + numstring[(c div trunc(potens(base, i - j))) + 1];
   c := c mod trunc(potens(base, i - j));
  end;
 end;
 
 dec2basen := num;
end;
 
{preobrazovanie iz zadannoy sistemu v desyatichnuy}
function basen2dec(base: integer; num: string; nd:integer): string;
 
const
 numset: set of char = ['0'..'9', 'A'..'Z'];
var
 j,t,k,len,point : integer;
 error: boolean;
 dec  : real;
begin
 dec := 0;
 error := false;
 if (base <2) or (base >36) then error := true;{esli netdopustimaya baza}
 
 len:=length(num);
 point:=0;
 for j:=1 to length(num) do{poisk kol-vo znakov do tochki}
  if num[j] = '.' then
   begin
    len:=j-1;
    point:=j;
    break;
   end;
 
 k:=0;
 for j := 1 to length(num) do
  if (num[j] <> '.') then
  begin
   k:=k+1;
   if (not (upcase(num[j]) in numset)) or (base < Digt(num[j]) + 1) then
   error:= true;
   {nakoplenie chisla}
   dec := dec + digt(upcase(num[j])) * potens(base, len - k);
  end;
 {esli korretno vozvrashaem chislo}
 if error then basen2dec := '0' else basen2dec := roundex(dec,nd);
end;

{******************************************************************************}
 
var s1,s2:integer;   {peremennye dlya preobrazovaniya v sistemy schisleniya}
    t,t2:string;
    tmp:real;
    code:integer;
 
    s16one,s16two:string; {peremennye dlya neposredstvennogo usloviya zadachi}
    des1,des2    :longint;
    r1           :integer;
    a,b          :text;
 
begin
 
    s1:=16;    {iz kakoi}
    s2:=10;    {v kakuyu}
 
     writeln('Г‚ГўГҐГ¤ГЁГІГҐ ГЇГҐГ°ГўГ®ГҐ Г·ГЁГ±Г«Г®:');      readln(s16one);    {Г±Г·ГЁГІГ»ГўГ*ГҐГ¬ Г± ГЄГ«Г*Гў-Г» Г*Г*Г·Г*Г«ГјГ*Г»ГҐ Г§Г*Г*Г·ГҐГ*ГЁГї}
     writeln('Г‚ГўГҐГ¤ГЁГІГҐ ГўГІГ®Г°Г®ГҐ Г·ГЁГ±Г«Г®:');      readln(s16two);
 
    {perevod chisel iz 16 v 10 sistemy schisleniya}
    t:=basen2dec(s1,s16one,2*0);
    val(t,tmp,code);
    t2:=dec2basen(s2,tmp,0);
    val(t2,des1,code);      {des1 = 1 ГўГўГҐГ¤ГҐГ*Г*Г®ГҐ Г·ГЁГ±Г«Г® Гў 10-Г®Г© Г±ГЁГ±ГІГҐГ¬ГҐ Г±Г·ГЁГ±Г«ГҐГ*ГЁГї }
 
    t:=basen2dec(s1,s16two,2*0);
    val(t,tmp,code);
    t2:=dec2basen(s2,tmp,0);
    val(t2,des2,code);      {des2 = 2 ГўГўГҐГ¤ГҐГ*Г*Г®ГҐ Г·ГЁГ±Г«Г® Гў 10-Г®Г© Г±ГЁГ±ГІГҐГ¬ГҐ Г±Г·ГЁГ±Г«ГҐГ*ГЁГї }
 
    {vychislyaem rezul'taty:}
    r1:=des1 * des2;   {ГЇГ°Г®ГЁГ§ГўГҐГ¤ГҐГ*ГЁГҐ}

   {perevod chisel obratno iz 10 v 16 sistemy schisleniya}
   s1:=10;  {iz kakoi}
   s2:=16;  {v kakuyu}
 
    str(r1,t);
    val(t,tmp,code);
    writeln('ГЇГ°Г®ГЁГ§ГўГҐГ¤ГҐГ*ГЁГҐ:',dec2basen(s2,tmp,0));  {vyvod rezul'tata}
 
readln;
end.

Уважаемые...очень прошу гляньте код...правильно ли реализовано умножение длинных чисел...пожалуйста

Решение задачи: «Умножение длинных чисел»

textual
                            Листинг программы 
                        

                            uses crt;
const nmax=1000;//макс. число разрядов во вводимых числах
type mas=array[1..2*nmax] of byte;//тип масива, число разрядов *2 для результата
function vvod(var a:mas):integer;//ввод чисел
var c:char;
    n:integer;
begin
n:=0; //количество разрядов
repeat
c:=readkey; //вводим посимвольно
if c in ['0'..'9','A'..'F'] then //если допустимые
 begin
  write(c);//выводим
  n:=n+1; //добавляем разряд
  if c in ['0'..'9'] then a[n]:=ord(c)-48 //если цифра пишем в массив 0..9
  else a[n]:=ord(c)-55 //если буква 10..15
 end;
if (c=#13)or(n=nmax) then writeln //если Enter или макс. разрядов, новая строка
until (c=#13)or(n=nmax);//и выход
vvod:=n//кол. разрядов
end;
//собственно умножение
procedure umn(a,b:mas;na,nb:integer;var c:mas;var nc:integer);
var i,j,p,k:integer;
begin
for i:=1 to 2*nmax do c[i]:=0; //обнулим результат
for i:=na downto 1 do //перемножим поразрядно
for j:=nb downto 1 do
 begin
   c[na-i+2+nb-j]:=c[na-i+2+nb-j]+(c[na-i+1+nb-j]+a[i]*b[j])div 16;//в следующий разряд излишки
   c[na-i+1+nb-j]:=(c[na-i+1+nb-j]+a[i]*b[j])mod 16;//в текущий остаток от деления на 16
 end;
writeln('Результат:');
{пропускаем начальные нули}
i:=2*nmax;
while (c[i]=0)and(i>1)do i:=i-1;
{выводим результат}
for j:=i downto 1 do
if c[j] in [0..9] then write(c[j])
else write(chr(c[j]+55));
end;
 
var a,b,c:mas;
    na,nb,nc:integer;
begin
writeln('Введите 1 число в СС 16, конец ввода Enter');
na:=vvod(a);
writeln('Введите 2 число в СС 16, конец ввода Enter');
nb:=vvod(b);
umn(a,b,na,nb,c,nc)
end.
                        