洛谷八连—逃避

题目描述
给定一篇只含有大小写字母，空格以及 ′.′(不含引号)的长度为 L 的文章。文章被若干个 ′.′ 划分 成若干个句子，句子被若干个空格划分成单词。你需要将文章中每个句子第一个单词的首字母改成大写， 其他一律小写，空格与 ′.′ 需原样输出。注意，可能存在某个句子中没有单词，或者某两个单词之间有多 个空格。
输入输出格式
输入格式：
一行，表示原串。
输出格式：
一行，表示你的回答。
输入输出样例

输入样例#1：
nigeru. wa.haji.
输出样例#1：
Nigeru. Wa.Haji.
输入样例#2：
.. .nI noip WEn   le  .NICE broO..
输出样例#2：
.. .Ni noip wen   le  .Nice broo..
说明
	测试点编号　　	限制与约束
	1,2,3,4,5			L<=10^3 L<=10^3
 
	6,7,8,9,10		L<=10^5L<=10^5
	时空限制      1s / 8MB
简单来说,就是把读入的字符串“合法”输出。。。可8MB的空间限制，有毒啊~最多只能开2*10^6（longint）的数组，一个不小心就要炸了！

var
  ch:array[0..100010]of char;
  i,j,t,k:longint;
   function bo(x:char):boolean;//判断x是否为字母
   begin
     if ((x>='a') and (x<='z')) or ((x>='A') and (x<='Z')) then exit(true)
     else exit(false);
   end;
   function big(x:char):char;//利用ASCII码进行转化
   begin
     if (x<='Z') and (x>='A') then exit(x)
     else exit(chr(ord(x)-32));
   end;
   function small(x:char):char;
   begin
     if (x>='a') and (x<='z') then exit(x)
     else exit(chr(ord(x)+32));
   end;
begin
  t:=1;
  while not eoln do begin//由于输入只有一行
  read(ch[t]);
  inc(t);
  end;
  t:=t-1;
  for i:=1 to t do
   begin
    if not bo(ch[i]) then write(ch[i]) else begin
     if i=1 then begin write(big(ch[i])); continue; end;
     if ch[i-1]='.' then write(big(ch[i])) else write(small(ch[i]));
   end;
   end;
end.