fork download
  1. program indexing;
  2.  
  3. var
  4. A, B, C : AnsiString;
  5. dimA, dimB,i, n, lunghmin :Longint;
  6. uscita:boolean;
  7. begin
  8. (* assign(input, 'input.txt'); reset(input);
  9.   assign(output, 'output.txt'); rewrite(output);*)
  10.  
  11. ReadLn(A);
  12.  
  13. ReadLn(B);
  14.  
  15. C := '';
  16. i:=1; uscita:=false;
  17. dimA:=Length(A); dimB:=Length(B);
  18. while (i<=dimA) and (uscita=false) do
  19. begin
  20. writeln(i); writeln(C);
  21. if A[i]=B[i] then begin C:=C+A[i]; i:=i+1; continue; end
  22. else if ord(B[i])-ord(A[i])=1 then begin C:=C+A[i]; i:=i+1; continue; end
  23. else if A[i]<>'z' then begin n:= ord(A[i])+1; C:=C+chr(n); uscita:=true; continue;end
  24. else if A[i]='z' then begin C:=C+'z';i:=i+1; continue;end;
  25. if (i>dimA) then C:=C+'a';
  26.  
  27. end;
  28. writeln(C) ;
  29. end.
Success #stdin #stdout 0s 5280KB
stdin
aca
b
bdb
stdout
1

2
a
ad