Системы счисления с арифметическими операциями с вещественными числами

uses
  CRT;
const
  a: string[36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
 
var
  n, r, final: real;
  p, ch1, ch2, rez, s, s2, s3, res: string;
   t, toch , cc, ind, cc2, k, rezult : integer;
 
// разделение дробной и целой части
procedure Del(var ss: string);
var
  i: integer;
begin
  ind := 0;
  s2 := '';
  for i := 1 to length(ss) do
    if ss[i] in [',', '.'] then
    begin
      ind := i;
      break
    end
    else
      s2 := s2 + ss[i];
  s3 := '';
  if ind <> 0 then
  begin
    delete(s, 1, ind);
    s3 := ss;
  end;
end;
 
// перевод из любой сс в 10-ую
function ToDec(var ss: string; cc: byte): integer;
var
  i, n, sum: integer;
begin
  sum := 0;
  n := length(ss);
  for i := 1 to n do
  begin
    dec(n);
    sum := sum + round((pos(ss[i], a) - 1) * exp(ln(cc) * n));
  end;
  ToDec := sum;
end;
 
// перевода числа из 10-й в любую сс
function Cel(d: real; c: integer): string;
var
  s: string;
  n2: integer;
begin
  n2 := round(int(d));
  s := '';
  repeat
    s := ((a[n2 mod c + 1]) + s);
    n2 := n2 div c;
  until (n2 = 0);
  Cel := s;
end;
 
// функция для перевода дробной части числа из 10-й в любую сс}
function Drob(var d: real; t, c: integer): string;
var
  s: string;
  l2, k, n3: real;
  i, l: integer;
begin
  k := d - int(d);
  s := '';
  i := 0;
  if t <> 0 then
  begin
    repeat
      l2 := k * c;
      k := frac(l2);
      s := s + a[round(int(l2)) + 1];
      inc(i);
    until i = t;
  end
  else
    s := '0';
  Drob := s;
end;
 
// перевод (дробь) из сс в 10-ю
function drob2(ss: string; c: integer): real;
var
  i: integer;
  sum: real;
begin
  for i := 1 to length(ss) do
    sum := sum + (pos(ss[i], a) - 1) * exp(ln(c) * -i);
  drob2 := sum;
end;
 
 
 
 
 
function process: string;
begin
  repeat
    write('Введите сиситему счисления числа: ');
    readln(cc2)
  until cc2 in [2..36];
  cc := 10;
  if cc2 = 10 then
  begin
    write('Введите число в ', cc2, '-й СС: ');
    readln(n);
 
 
    if ((n - round(int(n))) = 0) then
      rez := Cel(n, cc)
    else
      rez := Cel(n, cc) + ',' + Drob(n, t, cc);
  end
  else
  begin
    write('Введите число в ', cc2, '-й СС: ');
    readln(s);
    Del(s);
    if ind = 0 then
      rez := Cel(ToDec(s2, cc2), cc)
    else
    begin
      r := drob2(s3, cc2);
      rez := Cel(ToDec(s2, cc2), cc) + ',' + drob(r, length(s3), cc);
    end;
  end;
  process := rez;
 
end;
 
 
 
begin
  Writeln(' первое число');
  ch1 := process;
  Writeln('второе число');
  ch2 := process;
  Writeln('Введите операцию над числами');
  readln(p);
  if p = '+' then final := StrToInt(ch1) + StrToInt(ch2)
  else
  if p = '-' then final := StrToInt(ch1) - StrToInt(ch2)
  else
  if p = '*' then final := StrToInt(ch1) * StrToInt(ch2)
  else
  if p = '/' then final := StrToInt(ch1) / StrToInt(ch2);
  clrscr;
  Writeln(ch1);
  Writeln(p);
  Writeln(ch2);
 
  Writeln('Результат в 10СС');
  Writeln(final);
  Writeln('В какой СС хотите получить результат ?');
  Readln(rezult);
  if rezult=10 then
  else
  Begin
 
    if ((final - round(int(final))) = 0) then
      res := Cel(final, rezult)
    else
      res := Cel(final, rezult) + ',' + Drob(final, toch, rezult);
  Writeln(res);
  End;
 
  Readln;
 
        begin
  ClrScr;
  repeat
    write('из какой системы счисления переводить: ');
    readln(cc2)
  until cc2 in[2..36];
  write('Введите систему счисления в которую нужно перевести: ');
  readln(cc);
  if cc2 =10 then
  begin
    write('Введите число в ', cc2,'-й СС: ');
    readln(n);
 
    if((n -round(int(n)))=0)then
      rez:=Cel(n,cc)
    else
      rez:=Cel(n, cc)+','+Drob(n, t, cc);
  end
  else
  begin
    write('Введите число в ', cc2,'-й СС: ');
    readln(s);
    Del(s);
    if ind=0then
      rez:=Cel(ToDec(s2, cc2),cc)
    else
    begin
      r:= drob2(s3, cc2);
      rez:=Cel(ToDec(s2, cc2), cc)+','+drob(r, length(s3), cc);
    end;
  end;
  write(rez);
 
end;
 
 
  
  Readln;
end.