Программа

VAR S:string; { Последовательность символов }
    i:integer; { Счетчик }
BEGIN
   WriteLn; { Пропуск строки }
   S:=''; { Сброс последовательности }
   WriteLn('Введите последовательность символов '); { Вывод приглашения }
   ReadLn(S); { Ввод последовательности }
   i:=1; { Начальное определение счетчика }
   while i<=Length(S) do { Цикл просмотра строки }
   Begin
     if S[i] in ['A'..'Z'] { Если текущий символ явл. болшой латинской буквой  }
     then Delete(S,i,1)       { то - удаление ее }
     else if Copy(S,i,2)='??' { иначе - проверка конца последовательности }
          then Break { Выход из цикла }
          else Inc(i) { Переопределение счетчика символов }
   End;
   WriteLn; { Пропуск строки }
   WriteLn(S) { Вывод последовательности }
END.