Составить и отладить программу, заменяющую во введенном строковом выражении указанную подстроку нужным числовым значение

Var s,s1:string;
    i: integer;
 
Begin
    write('Строка: ');readln(s);
    s[i]:='';
    i:=pos(s,'^')-1;
    while (s[i]>='0') and (s[i]<='9') do
    begin
    s1:=s1+s[i];
    end;
    writeln(s1);
    
End.

Var s,s1:string;
    a,x:real;
    p:integer;
Begin
writeln('Введите строку');
readln(s);
repeat
writeln('Введите подстроку для замены');
readln(s1);
p:=pos(s1,s);
if p=0 then writeln('Такой подстроки нет, повторите');
until p>0;
writeln('Введите 2 числа а-основание степени и х-показатеь степени');
readln(a,x);
a:=power(a,x);
delete(s,p,length(s1));
insert(floattostr(a),s,p);
write(s)
 
End.

Var s,s1:string;
    a,x:real;
    p:integer;
Begin
s1:='a^x';
repeat
writeln('Введите строку, содержащую подстроку ',s1);
readln(s);
p:=pos(s1,s);
if p=0 then writeln('Такой подстроки нет, повторите');
until p>0;
p:=1;
while(p<=length(s))and(copy(s,p,length(s1))<>s1) do inc(p);
writeln('Введите 2 числа а-основание степени и х-показатеь степени');
readln(a,x);
a:=power(a,x);
delete(s,p,length(s1));
insert(floattostr(a),s,p);
write(s)
 
End.