Как сделать проверку в строке "для дурака" с авто-заменой "," на "." - иначе вылетает

program NumOfPower;
 
var Power: integer; {степень} 
var Base: double; {число}
 
function MyPower(Base:double; Power:integer):double; {непосредственно расчет}
 
var i:integer;
var rez:double; 
 
begin
 rez:= Base; 
for i:=1 toPower-1 do 
 rez:= rez * Base; 
result:=rez; 
end;
 
begin
 
write('Введите основание :');
 read(Base);
 
write('Введите степень :');
read(Power);
 
 if Power<0 then 
 
 begin
Power:=Power*(-1);
 write('Итог: число ', Base, ' в сепени ', Power, ' = ', 1/MyPower(Base, Power),';'); 
end
 
else
write('Итог: число ', Base, ' в сепени ', Power, ' = ', MyPower(Base, Power), ';');
 
end.

program NumOfPower;
 
uses System;
 
var Strin:string;
var Power, i: integer;
var Base: double;
 
  function MyPower(Base:double; Power:integer):double;
   var i:integer;
   var rez:double;  
 
begin
 rez:= Base; 
 for i:=1 to Power-1 do 
 rez:= rez * Base; 
 result:=rez; 
end;
 
begin
 
  write('Введите основание :');
  read(Strin);
  
    for i:=length(Strin) downto 1 do
      begin
       if (Strin[i] = ',') then Strin[i] := '.' ;
      end;
    Base:= StrToInt(Strin);
 
     
  write('Введите степень :');
  read(Power);
  
  if Power<0 then 
    begin
     Power:=Power*(-1);
     write('Итог: число ', Base, ' в сепени ', Power, ' = ', 1/MyPower(Base, Power),';');
    end
  else
  write('Итог: число ', Base, ' в сепени ', Power, ' = ', MyPower(Base, Power), ';');
     
end.

var Power,code: integer; {степень} 
     Base: double; {число}
     s:string;
...........................
repeat
write('Введите основание :');
readln(s);
val(s,base,code);
if code<>0 then writeln('Введите действительное число');
until code=0;
repeat
write('Введите степень :');
readln(s);
val(s,Power,code);
if code<>0 then writeln('Введите целое число');
until code=0;

readln(s); if pos(',', s) > 0 then s[pos(',', s)] := '.';