Pascal 我只需要括号里的字母

我只需要写括号中的字母（）如果第一个字符串是Hello1 World，第二个必须是（Hello）1（World），但我有（Hello）1（）（World）我想必须使数字不在括号中（）在数字是括号（）之后下注，我不需要。 如何解决此问题这是我的代码：

program task2;
uses crt;
var str,name:string;
str2:^string;
i:integer;

begin
clrscr;


writeln('Enter string!');
writeln;

readln(str);
writeln;

New(str2);
str2^:='';
name:='';

for i:=1 to length(str) do
 if ((str[i]=' ') or (str[i]>='0') and (str[i]<='9')) then
               begin
                 str2^:=str2^+'('+name+')'+str[i];
                 name:='';
               end
            else name:=name+str[i];
str2^:=str2^+'('+name+')';

writeln('First string: ',str);
writeln('String length is ',length(str));
writeln;
writeln('Second string: ',str2^);
writeln('String length is ',length(str2^));

readln;
end.

程序任务2；
使用阴极射线管；
var-str，名称：string；
str2:^字符串；
i：整数；
开始
clrsc；
writeln（'输入字符串！'）；
书面语；
readln（str）；
书面语；
新的（str2）；
str2^：=''；
姓名：=''；
对于i:=1到长度（str）do
如果（（str[i]=''）或（str[i]>='0'）和（str[i]），那么问题是，即使“name”为空，也要附加“name”。
如果长度（名称）>0，只需添加
，如下所示：

program task2;
uses crt;
var str,name:string;
str2:^string;
i:integer;

begin
clrscr;


writeln('Enter string!');
writeln;

readln(str);
writeln;

New(str2);
str2^:='';
name:='';

for i:=1 to length(str) do
 if ((str[i]=' ') or ((str[i]>='0') and (str[i]<='9'))) then
   if (length(name)>0) then     
               begin
                 str2^:=str2^+'('+name+')'+str[i];
                 name:='';
               end
             else
            else name:=name+str[i];
str2^:=str2^+'('+name+')';

writeln('First string: ',str);
writeln('String length is ',length(str));
writeln;
writeln('Second string: ',str2^);
writeln('String length is ',length(str2^));

readln;
end. 

程序任务2；
使用阴极射线管；
var-str，名称：string；
str2:^字符串；
i：整数；
开始
clrsc；
writeln（'输入字符串！'）；
书面语；
readln（str）；
书面语；
新的（str2）；
str2^：=''；
姓名：=''；
对于i:=1到长度（str）do
如果（（str[i]=''）或（（str[i]>='0'）和（str[i]0），则
开始
str2^:=str2^+'（'+name+'）'+str[i]；
姓名：=''；
结束
其他的
其他名称：=name+str[i]；
str2^:=str2^+'（'+name+'）；
writeln（'第一个字符串：'，str）；
writeln（'String length is'，length（str））；
书面语；
writeln（'第二个字符串：'，str2^）；
writeln（'String length is'，length（str2^））；
readln；
结束。