Осуществить ввод переменной без константы

program Converter_p_10;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows,
  UP_To_10 in 'UP_To_10.pas';
var conv: Tp_To_10;
begin
  SetConsoleCP(1251);
  SetConsoleOutPutCP(1251);
  conv:= TP_To_10.Create(10); //Ïðèìåð èñïîëüçîâàíèÿ êîíñòðóêòîðà TP_To_10.Create
                            //ïî óìîë÷àíèþ
  writeln(conv.p); //Ïðèìåð èñïîëüçîâàíèÿ Getter Fp ñâîéñòâà p
  conv.p:= 16; //Ïðèìåð èñïîëüçîâàíèÿ Setter SetP ñâîéñòâà p
  writeln(conv.p); //Ïðèìåð èñïîëüçîâàíèÿ Getter Fp ñâîéñòâà p
  writeln(conv.PCharToInt('a')); //Ïðîâåðêà TP_To_10.PCharToInt
  writeln(conv.PCharToInt('A')); //Ïðîâåðêà TP_To_10.PCharToInt
  writeln('Ïåðåâîä öåëîé ÷àñòè: ', conv.PIntTo10('A5'):6:2); //Ïðîâåðêà TP_To_10.PIntTo10
  writeln('Ïåðåâîä äðîáíîé ÷àñòè: ', conv.PFracTo10('E'):6:4); //Ïðîâåðêà TP_To_10.PCharTo10
  writeln('Ïåðåâîä äåéñòâèòåëüíîãî ÷èñëà: ', conv.DoTransfer('-A5,E'):6:4); //Ïðîâåðêà TP_To_10.DoTransfer
  readln;
end.

unit UP_To_10;
 
interface
uses
  Classes,
  SysUtils;
//------------------------------------------------------------------------------
const
DevSystVal = 16; //Ñèñòåìà ñ÷èñëåíèÿ ïî óìîë÷àíèþ
a = 10; //×èñëî äåñÿòü â 16-÷íîé ñèñòåìå ñ÷èñëåíèÿ
zero = 0; //×èñëî 0
first = 1; //×èñëî 1
Minus = '-'; //Ñèìâîë '-'
CommaSign = ','; //Ñèìâîë ','
NullString = ''; //Ïóñòàÿ ñòðîêà
//------------------------------------------------------------------------------
type
//------------------------------------------------------------------------------
TBase = 2..16;//Òèï äàííûõ äëÿ îñíîâàíèÿ ñèñòåìû ñ÷èñëåíèÿ
TP_To_10 = class //Ïðåîáðàçîâàòåëü ÷èñëà èç ñ. ñ÷. ñ îñíîâàíèåì p â äåñèòè÷íîå
private
  Fp: TBase; //Îñíîâàíèå ñ. ñ÷.
  function GetP():Tbase; //Âîçâðàùàåò çíà÷åíèå ïîëÿ Fp
  procedure SetP(new: TBase); //Óñòàíàâëèâàåò îñíîâàíèå ñèñòåìû ñ÷èñëåíèÿ
public
  property p: TBase read GetP write SetP; //×òåíèå è çàïèñü îñíîâàíèÿ ñ. ñ÷.
  constructor Create(p:TBase = DevSystVal); //Ñîçäàåò îáúåêò è èíèöèèðóåò ïîëå Fp
  function PCharToInt(PChar: char):integer; //Ïðåîáðàçîâàòåëü ñèìâîëà â öåëîå
  function PIntTo10 (PIntString: string): extended; //Ïðåîáðàçîâàòåëü ñòðîêè â öåëîå
  function PFracTo10 (PFracString: string): extended; //Ïðåîáðàçîâàòåëü ñòðîêè â äðîáü
  function DoTransfer(PNumberString: string):extended; //Ïðåîáðàçîâàòåëü ñòðîêè â ÷èñëî
end;
//------------------------------------------------------------------------------
implementation
  constructor TP_To_10.Create(p:TBase = DevSystVal); //Ïî óìîë÷àíèþ ñ.ñ÷ = 16
  begin
    Fp:= p;
  end;
//------------------------------------------------------------------------------
  function TP_To_10.GetP():Tbase;
  begin
    result:= Fp;
  end;
//------------------------------------------------------------------------------
  procedure TP_To_10.SetP(new:TBase);
  begin
    Fp:= new;
  end;
//------------------------------------------------------------------------------
  function TP_To_10.PCharToInt(PChar: char):integer;
  begin
    result:= zero; //Èíèöèàëèçàöèÿ ðåçóëüòàòà
    case PChar of
      '0'..'9': result:= ord(PChar)-ord('0');
      'a'..'f': result:= ord(PChar)-ord('a')+a;
      'A'..'F': result:= ord(PChar)-ord('A')+a;
    end;
  end;
//------------------------------------------------------------------------------
  function TP_To_10.PIntTo10 (PIntString: string): extended;
  var
    i: integer; //Ñ÷åò÷èê öèêëà
    PowerP: extended; //Ñòåïåíü âîçâåäåíèÿ îñíîâàíèÿ ñèñòåìû ñ÷èñëåíèÿ
  begin
    result:= zero; //Èíèöèàëèçàöèÿ ðåçóëüòàòà
    if PIntString <> NullString then //Óñëîâèå ïðîâåðêè ñòðîêè íà íàëè÷èå ñèìâîëîâ
      begin
        for i:= zero to length(PIntString) do
          begin
            PowerP:= length(PIntString)-i;
            result:=result + PCharToInt(PIntString[i])*int(exp(PowerP*ln(Fp)));
          end;
      end;
  end;
//------------------------------------------------------------------------------
  function TP_To_10.PFracTo10 (PFracString: string): extended;
  var
    i: integer; //Ñ÷åò÷èê öèêëà
  begin
    result:= zero; //Èíèöèàëèçàöèÿ ðåçóëüòàòà
    if PFracString <> NullString then //Óñëîâèå ïðîâåðêè ñòðîêè íà íàëè÷èå ñèìâîëîâ
      begin
        for i:= length(PFracString) downto zero do //Îáðàòíûé ñ÷åò÷èê
          begin
            result:= result + PCharToInt(PFracString[i])*(exp((-i)*ln(Fp)));
          end;
      end;
  end;
//------------------------------------------------------------------------------
  function TP_To_10.DoTransfer(PNumberString: string):extended;
  var
    i: integer;
    MinusExists: boolean;
    IntPartOfPNumberString,FracPartOfPNumberString: string;
  begin
    MinusExists:= False;
    if PNumberString[first] = Minus then //Ïðîâåðêà óñëîâèÿ íàëè÷èÿ ìèíóñà
      begin
        Delete(PNumberString,first,1);
        MinusExists:= True;
      end;
    for i:= first to length(PNumberString) do
      begin
        if PNumberString[i] = CommaSign then
          begin
            IntPartOfPNumberString:= Copy(PNumberString, first, i-1);
            FracPartOfPNumberString:= Copy(PNumberString, i+1, length(PNumberString)-i);
          end;
      end;
    result:= PIntTo10(IntPartOfPNumberString) + PFracTo10(FracPartOfPNumberString);
    if MinusExists = True then result:= result*(-1); //Äîìíîæåíèå íà ìèíóñ
  end;
//------------------------------------------------------------------------------
end.

X:=ParamStr(1);

program Converter_p_10;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows,
  UP_To_10 in 'UP_To_10.pas';
var conv: Tp_To_10;
s,d:string;
begin
  SetConsoleCP(1251);
  SetConsoleOutPutCP(1251);
  conv:= TP_To_10.Create(); //Пример использования конструктора TP_To_10.Create
                            //по умолчанию
  writeln(conv.p); //Пример использования Getter Fp свойства p
  conv.p:= 16; //Пример использования Setter SetP свойства p
  writeln(conv.p); //Пример использования Getter Fp свойства p
  writeln(conv.PCharToInt('a')); //Проверка TP_To_10.PCharToInt
  writeln(conv.PCharToInt('A')); //Проверка TP_To_10.PCharToInt
  Writeln('введите целую часть числа');
  Readln(s);
  writeln('Перевод целой части: ', conv.PIntTo10(s):6:2); //Проверка TP_To_10.PIntTo10
  Writeln('введите дробную часть числа');
  Readln(d);
  writeln('Перевод дробной части: ', conv.PFracTo10(d):6:4); //Проверка TP_To_10.PCharTo10
 
  readln;
end.

write(cel,'.',drob);