Заменить все буквы, стоящие после "_" на такие же, но заглавные. Паскаль

Вроде так работает  var  s:string;  i:integer;  begin  readln(s); write(s[1]); for i:=2 to length(s) do   if s[i-1] = '_' then  write(Upcase(s[i])) else write(trim(s[i])); //это в одну строчку с предыдущей  end.