{Supresses trailing blanks}
function RTrim(s: string): string;
begin
  while s[length(s)] = ' ' do dec(s[0]);
  result := s;
end;