program z184794;
  var fIn,fOut: Text; {Файловые переменные}
      name: string;   {Переменная для имени файла}

  {Функция обработки одиночной строки файла}
  {Возвращает результат обработки входной строки по заданным правилам}
  function ProcessString(Buf: string):string;
    var i: char; {Счетчик}
        result: string; {Переменная для временного хранения результата}
  begin
    result:='';
    for i:='0' to '9' do
      if pos(i,Buf)<>0 then
        result:=result+i;
    if result='' then ProcessString:='-1' else ProcessString:=result;
  end;

  {Процедура обработки заданных файлов}
  {В параметрах получает файловые переменные с "открытыми" файлами}
  procedure ProcessFiles(var fIn,fOut: text);
    var Buffer: string;
  begin
    while not(Eof(fIn)) do begin
      readln(fIn,Buffer);
      writeln(fOut,ProcessString(Buffer));
    end;
    close(fIn);
    close(fOut);
  end;

{Основная программа}
{Запрашивает имена файлов, проверяет наличие входного файла,}
{открывает их и запускает процедуру обработки}
begin
  write('Введите имя входного файла:');
  readln(name);
  Assign(fIn,name);
  {$I-}
  reset(fIn);
  {$I+}
  if IOResult<>0 then begin
    writeln('Файл не найден!');
    halt(1);
  end;
  write('Введите имя выходного файла:');
  readln(name);
  Assign(fOut,name);
  rewrite(fOut);
  ProcessFiles(fIn,fOut);
  writeln('Сделано.');
end.