8、 存在一个英文文本，编写程序对所有没有以大写字母开...

如果按你的例子，第一个是不用处理，那么程序就是这样了:
var ch,s:string;l:integer;
begin
readln(ch);
while ch<>'' do
begin
l:=pos('.',ch);
s:=s+copy(ch,1,l);
delete(ch,1,l);
if ord(ch[1])>=97 then
ch[1]:=chr(ord(ch[1])-32);
end;
writeln(ch);
end.

---

如果按你的例子，第一个是不用处理，那么程序就是这样了:
var ch,s:string;l:integer;
begin
readln(ch);
while ch<>'' do
begin
l:=pos('.',ch);
s:=s+copy(ch,1,l);
delete(ch,1,l);
if ord(ch[1])>=97 then
ch[1]:=chr(ord(ch[1])-32);
end;
writeln(ch);
end.

---

d