Упростить программу или часть задать по другому

uses
  CRT;
 
const
  a: string[16] = '0123456789ABCDEF'; //Шаг1: Задаем строку для поиска в ней символов
var //Шаг2: Задаем переменные
  n: real;
  vuvod, w, w2, w3, w4: string;
  q, cc, ind, cc2, k, l, q2: longint;
 
//ШАГ3: процедура для разделения дробной и целой части числа
procedure rasdel(var ww: string);
var //Шаг3.1: Задаем переменную
  i: integer;
begin //Шаг3.2: пишем в строку по символам целую часть и удаляем с первой позиции по pos('.',ww) целую часть
  w2:=copy(ww,1,pos('.',ww)-1);
  delete(ww, 1,pos('.',ww));
  w3 := ww; //Шаг3.3.: Затем остаток исходной строки заносим в w3 (т.е. дробную часть)
end;
 
//ШАГ: функция для перевода целой части числа из любой СС в 10-ю
function Decat(ww2: string; cc: byte): integer;
var //Шаг4.1: Переменные
  i, n, sum: integer;
begin
  sum := 0;
  n := length(ww2); //Шаг4.2: присваиваем n - длину строки ww
  for i := 1 to n do //Шаг4.3.: пробегаемся по строке
  begin
    dec(n); //Шаг4.4: уменьшим счетчик на 1
    sum := sum + round((pos(ww2[i], a) - 1) * exp(ln(cc) * n));//Шаг4.5: суммируем число найденное в
    //строке по позиции символа-1 (pos(ss[i],a)-1)) в степени dec(n)
  end;
  Decat := sum;
end;
 
//ШАГ5: функция для перевода целой части числа из 10-й в любую сс
function Celoe(d: real; c: integer): string;
var //Шаг5.1: Переменные
  w: string;
  n2: integer;
begin
  n2 := round(int(d)); //Шаг5.2: Берем целую часть от числа
  w := '';
  repeat
    w := ((a[n2 mod c + 1]) + w); //Шаг5.3: повторяем пока число не будет равно нулю берём целую часть при
    //делении числа на основание и берём остаток + 1 от деления целой части на 16, записываем
    //результат посимвольно в строку w
    n2 := n2 div c;
  until (n2 = 0);
  Celoe := w;
end;
 
//ШАГ6: функция для перевода дробной части числа из 10-й в любую сс}
function Drob(d: real; t, c: integer): string;
var // Шаг6.1: Переменные
  w: string;
  l2, k, n3: real;
  i, l: integer;
begin
  k := d - int(d); //Шаг6.2: Берем дробную часть
  w := '';
  i := 0;
  if t <> 0 then //Шаг6.3: Если точность не равна 0 то переводим
  begin
    repeat
      l2 := k * c;
      k := frac(l2);//Шаг6.4: умножаем число на c (основание СС) берём целую часть и снова умножаем дробную
      w := w + a[round(int(l2)) + 1]; //Шаг6.5: ищем в строке элемент на позиции round(int(l2))+1
      //(целая часть от умножения числа на c +1)
      inc(i); //Шаг6.6: увеличиваем счетчик
    until i = t;
  end
  else //Шаг6.7: Иначе присваеваем w "0"
   w := '0';
  Drob := w;
end;
 
//ШАГ7:функция для проверки может ли быть это число в заданной системе счисления}
Function proverka(c:integer;w:string):boolean;
Var //Шаг7.1. Переменные
 i,kol,j:integer;
begin
kol:=0;
for i:=1 to c do
begin
 for j:=1 to length(w) do //Шаг7.2: Бежим по строке, если ввод правильный переходим на шаг 8, если не правильно ошибка
 if w[j]=a[i] then
  inc(kol);
end;
if kol=length(w) then
 proverka:=true
else
 proverka:=false;
end;
 
//ШАГ8: перевод дробной части из произвольной сс  в 10-ю
function drob2(ww: string; c: integer): real;
var //Шаг8.1: переменные
  i: integer;
  sum: real;
begin
  for i := 1 to length(ww) do //Шаг8.2: Бежим по строке, а конкретно по дробной части
    sum := sum + (pos(ww[i], a) - 1) * exp(ln(c) * -i); //Шаг8.3: умножаем позицию символа строки -1
  //на онование системы счисления в степени -i
  drob2 := sum;
end;
//Шаг9: Открытие диалового окна
begin
  ClrScr;
  repeat
    write('Введите СС из которой будете переводить: '); //Шаг9.1:вывод фразы" Введите СС из которой будете переводить:"
    readln(cc2); //Шаг9.2: Ввод СС1
    write('Введите СС в которую нужно перевести : '); //Шаг9.3: Вывод фразы "Введите СС в которую нужно перевести :"
    readln(cc); //Шаг9.4: Ввод СС2
  until (cc2 in [2..16]) and (cc in [2..16]); //Шаг9.5:  проверки вводимых СС
  repeat//Шаг9.6: Цикл ввода числа и проверка на его существование
   write('ввод числа в ', cc2, '-й СС: ');
   readln(w);
   w4:=w;
   if pos(',',w)<>0 then
    w[pos(',',w)]:='.';
   q2:=pos('.',w);
   val(w,n,l);
   Rasdel(w);
   if not proverka(cc2,w2) or not proverka(cc2,w3) then //Шаг9.7: Вывод ошибки в случае неправильного ввода"Некорректное число.Повторите"
    write('Некорректное число.Повторите ')
  until proverka(cc2,w2) and proverka(cc2,w3); //Шаг9.8: Вывод фразы "До какого знака после запятой считать:"
  write('До какого знака после запятой считать: ');
    readln(q);
  if cc2 = 10 then
  begin
    if ((n - round(int(n))) = 0) then //Шаг9.9: если дробная часть числа=0 то юзаем Celое
      vuvod := Celoe(n, cc)
    else //Шаг9.10: иначе юзаем обе и добавляем , между дробной и целой частью числа
      vuvod := Celoe(n, cc) + ',' + Drob(n, q, cc);
  end
  else
  begin
    if q2=0 then
      vuvod := Celoe(Decat(w3, cc2), cc) //Шаг9.11: переводим сначала из любой в 10-ю сс, а затем из 10-й в любую
    else
      vuvod := Celoe(Decat(w2, cc2), cc) + ',' + drob(drob2(w3, cc2),q, cc); //Шаг9.12: Затем добавляем переведенную дробную часть
  end;
  write('Число ',w4,'_',cc2,' в ',cc,'-й системе счисления:=',vuvod); //Шаг10: Выводим результат
end.