fork download
  1. program indexing;
  2.  
  3. var
  4. A, B, C : AnsiString;
  5. dimA, dimB,i, n, lunghmin :Longint;
  6. begin
  7. (*assign(input, 'input.txt'); reset(input);
  8.   assign(output, 'output.txt'); rewrite(output);*)
  9.  
  10. ReadLn(A);
  11.  
  12. ReadLn(B);
  13.  
  14. C := '';
  15.  
  16. dimA:=Length(A); dimB:=Length(B);
  17. i:=1;
  18. if dimA<=dimB then
  19. begin
  20. while ((ord(B[i]) - ord(A[i]))<1) and (i<= dimA) do begin C:=C+A[i]; i:=i+1; end;
  21. if((ord(B[i]) - ord(A[i]))=1) and (i<dimA) then begin C:=C+A[i]; i:=i+1; end;
  22. if i<=dimA then begin n:= ord(A[i])+1; C:=C+chr(n); end
  23. else begin
  24. if (B[dimA+1]<>'a') then C:=C+'a'
  25. else begin if dimB>dimA+1 then C:=C+'a'
  26. else C:='-1'; end;
  27. end
  28. end
  29. else
  30. begin
  31. while (A[i]=B[i]) and (i<=dimB) do begin C:=C+A[i]; i:=i+1; end;
  32. while (ord(B[i]) - ord(A[i]))=1 do begin C:=C+A[i]; i:=i+1; end;
  33. if A[i]<>'z' then begin n:= ord(A[i])+1; C:=C+chr(n); end
  34. else begin while A[i]='z' do begin C:=C+'z'; i:=i+1 ; end; C:=C+'z';end;
  35.  
  36. end;
  37. writeln(C);
  38. end.
Success #stdin #stdout 0.01s 5288KB
stdin
azz
bdz
stdout
a{