here is my code:

var
i:integer;
ch:char;
begin
while not eof(input)do begin
                       i:=0;
                       while not eoln do begin
                       inc(i);
                       read(ch);
                       if (i=1) and(ch in[' ','-']) then i:=0;
                       if (i>1) and(ch in['!','.','?']) then i:=0;
                       if i>1 then ch:=LowerCase(ch);
                       write(ch);
                       end;
                       Readln;
                       Writeln;
                       end;
end.