program PrintUppercaseString;
var
  inputString: string;
  uppercaseString: string;
  i: integer;
begin
  write('Nhập xâu kí tự: ');
  readln(inputString);
  if Length(inputString) > 255 then
  begin
    writeln('Xâu vượt quá độ dài cho phép (không quá 255 kí tự).');
    exit;
  end;
  uppercaseString := '';
  for i := 1 to Length(inputString) do
  begin
    if (inputString[i] >= 'A') and (inputString[i] <= 'Z') then
      uppercaseString := uppercaseString + inputString[i];
  end;
  writeln('Xâu gồm tất cả các kí tự in hoa: ', uppercaseString);
end.