求pascal字符串分解程序

输入一个字符串 'liming 64 79 Y N 2' 将其分别分解成'liming'(string) 64 79(longint) 'Y' 'N' (char) 2(integer) [括号为其类型] 按照这个 给设计个程序吧！

我用的是FREE PASCAL

var
str,s:string;
i,f,b:integer;
c:char;
catb,catf:integer;

begin
readln(str);
writeln;
str:=str+' ';
catb:=-1;
for b:=1 to length(str) do
begin
c:=str[b];
if(catb=catf) then inc(f);
if((c>='a')and(c<='z'))or((c>='A')and(c<='Z'))then
catf:=1
else if(c>='0')and(c<='9')then
catf:=2
else begin
if(b-f<>1)then i:=1 else i:=0;
s:=copy(str, b-f+i, f-i);
case catb of
1:
if(length(s)<>1)then writeln(s,'(string)')
else writeln(s,'(char)');
2:
if(length(s)<>1)then writeln(s,'(longint)')
else writeln(s,'(integer)');
end;
f:=1;
catb:=-1;
catf:=0;
end;
if(catb=-1)and(catf<>0)then catb:=catf;
end;
readln;
end.


截图：