Умножение,слложение и вычитание чисел с разными системами счисления

program n33;
uses wincrt;
var
  s,s2,q: string;
  i,j,b,a,a2: integer;
  d,d2,k,k2,sum,z,g: real;
  f,f2,e,e2: boolean;
  c,c2: char;
begin
  b:=2;
    s:='10.101';
    f:=false;
    k:=1;
    for i:=1 to Length(s) do begin
      if f then k:=k/b;
      c:=UpCase(s[i]);
      a:=-1;
      case c of
        '0'..'9': a:=Ord(c)-48;
        'A'..'Z': a:=Ord(c)-55;
        '.',',': if f then e:=true else f:=true;
        else f:=true;
      end;
      e:=e or (a>=b);
 
      if a>=0 then d:=d*b+a;
    end;
      begin
    s2:='11.1001';
    f2:=false;
    k2:=1;
    for i:=1 to Length(s2) do begin
      if f2 then k2:=k2/b;
      c2:=UpCase(s2[i]);
      a2:=-1;
      case c2 of
        '0'..'9': a2:=Ord(c2)-48;
        'A'..'Z': a2:=Ord(c2)-55;
        '.',',': if f2 then e2:=true else f2:=true;
        else f2:=true;
      end;
      e2:=e2 or (a2>=b);
 
      if a2>=0 then d2:=d2*b+a2;
       end;
       sum:=d*k+d2*k2;
 
       z:=frac(sum);
    sum:=sum-z;
    q:='';
    while sum>0 do begin
      g:=sum/b;
      j:=Round(Frac(g)*b);
      if j<10 then j:=j+48 else j:=i+55;
      q:=Chr(j)+q;
      sum:=g-Frac(g)
    end;
    if z>0 then begin
      q:=q+'.';
      while z>0 do begin
        g:=z*b;
        i:=Trunc(g);
        z:=g-j;
        if j<10 then j:=j+48 else j:=j+55;
        q:=q+Chr(j)
      end
    end;
    if q='' then q:='0';
    WriteLn('Сумма двух чисел ',s,' и ',s2,' в двоичной системе счисления равна: ',q);
 end;
end.

program Project1;
 
type
  (*Тип, задающий диапазон возможных оснований систем счисления.*)
  TBase = 2..16;
  (*Тип, задающий диапазон возможных значений цифр.*)
  TDigitNum = 0..15;
 
(*Возвращает число, соответствующее цифре.*)
function DigToNum(const aDigit : Char; const aBase : TBase) : TDigitNum;
var
  Res : TDigitNum;
  SBase : String;
begin
  case aDigit of
    '0' : Res := 0;
    '1' : Res := 1;
    '2' : Res := 2;
    '3' : Res := 3;
    '4' : Res := 4;
    '5' : Res := 5;
    '6' : Res := 6;
    '7' : Res := 7;
    '8' : Res := 8;
    '9' : Res := 9;
    'A', 'a' : Res := 10;
    'B', 'b' : Res := 11;
    'C', 'c' : Res := 12;
    'D', 'd' : Res := 13;
    'E', 'e' : Res := 14;
    'F', 'f' : Res := 15;
  else
    Writeln('Ошибка! Нет такой цифры: "' + aDigit + '".');
    Res := 0;
  end;
 
  if Res >= aBase then begin
    Str(aBase, SBase);
    Writeln(
      'Ошибка! Нет цифры "' + aDigit + '"'
      + ' в системе счисления по основанию ' + SBase
    );
    Res := 0;
  end;
 
  DigToNum := Res;
end;
 
(*Определяет само число по записи этого числа в системе счисления по основанию aBase.*)
function StrToNum(const aStr : String; const aBase : TBase) : Extended;
var
  i, Pos1, Sign : Integer;
  Res, Weight : Extended;
  StrNum : String;
begin
  StrToNum := 0;
  Res := 0;
 
  //Определяем знак "+" или "-".
  Sign := 1;
  if aStr[1] = '-' then Sign := -1;
 
  //Запись числа без знака.
  if Sign = -1 then StrNum := Copy(aStr, 2, Length(aStr) - 1)
  else StrNum := aStr;
 
  //Ищем десятичную точку.
  for Pos1 := 1 to Length(StrNum) do
    if StrNum[Pos1] in ['.', ','] then Break
  ;
  if Pos1 = Length(StrNum) then begin
    Writeln('Ошибка! Неверная запись числа.');
    Exit;
  end;
 
  //Учитываем в числе дробную часть, если она присутствует.
  if Pos1 < Length(StrNum) then begin
    Weight := 1;
    for i := Pos1 + 1 to Length(StrNum) do begin
      Weight := Weight / aBase;
      Res := Res + DigToNum(StrNum[i], aBase) * Weight;
    end;
  end;
 
  //Учитываем в числе целую часть.
  Weight := 1;
  for i := Pos1 - 1 downto 1 do begin
    Res := Res + DigToNum(StrNum[i], aBase) * Weight;
    Weight := Weight * aBase;
  end;
 
  //Учитываем знак числа.
  StrToNum := Res * Sign;
end;
 
var
  SNum1, SNum2 : String;
  B1, B2 : TBase;
  Num1, Num2, Res : Extended;
begin
  repeat
    Writeln('Задайте основание системы счисления для представления первого числа:');
    Readln(B1);
    Writeln('Задайте первое число в системе счисления по основанию ', B1, ':');
    Readln(SNum1);
 
    Writeln('Задайте основание системы счисления для представления второго числа:');
    Readln(B2);
    Writeln('Задайте второе число в системе счисления по основанию ', B2, ':');
    Readln(SNum2);
 
    Num1 := StrToNum(SNum1, B1);
    Num2 := StrToNum(SNum2, B2);
    Res := Num1 + Num2;
 
    Writeln('Сумма чисел, представленная в десятичной системе счисления, равна:');
    Writeln(Res:0:20);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(SNum1);
  until SNum1 <> '';
end.