function isaword(s:string):boolean;
var
t:string;
index:integer;
begin
t:=trim(s);
index:=1;
while index<=length(t) do
begin
if not isdaxiao(t[index]) then
begin
result:=false;

end;
inc(index);
end;
result:=true;
end;