⣿⣿⣿⣿⣿⣿⣿⣿⣿⡿⢛⣩⣭⣝⡻⢿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿
⣿⣿⣿⣿⣿⣿⣿⣿⢋⣼⣿⣿⣿⣿⣿⣦⡙⢿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿
⣿⣿⣿⣿⣿⣿⣿⠏⣾⣿⣿⣿⣿⣿⣿⣿⣷⣌⢿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿
⣿⣿⣿⣿⣿⣿⢏⣼⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣆⠻⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿
⣿⣿⣿⣿⠟⣡⣾⣿⣿⣿⣿⣿⣿⣿⣽⣿⣛⣛⢿⣷⣌⠻⣿⣿⣿⣿⣿⣿⣿⣿
⣿⣿⠟⣡⣾⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣷⣮⡻⣿⣿⣿⣿⣿⣿
⡟⣡⣾⣿⠿⠟⠛⣛⣛⣛⣛⡛⠛⣛⣛⣛⣛⠛⠿⠿⢿⣿⣿⣿⣮⡛⣿⣿⣿⣿
⠜⣫⣥⣄⠻⠞⠡⠻⠟⠹⣿⡃⠃⠻⠿⠿⠟⠹⣣⢧⢄⣠⣦⠍⣙⠷⡌⢿⣿⣿
⢸⣭⡍⢛⢣⣶⣾⣿⣿⣿⣿⣿⣿⣿⣿⣿⣶⣶⣦⣤⣛⠩⣓⣬⣽⣶⠀⣸⣿⣿
⣦⣍⣙⣓⠘⢿⣿⣿⣿⣿⣿⠟⠀⠀⠈⢻⣿⣿⣿⣿⣿⠡⣿⡿⠍⣩⣴⣿⣿⣿

⣿⣿⣿⣿⣧⠠⡝⣼⣿⣿⣿⣶⣦⣄⣤⣾⣿⣿⣿⡿⢣⣭⡴⢢⣾⡿⠿⠛⣽⣿
⣿⣿⣿⣿⣿⢸⣈⣹⣉⣩⣿⣿⣿⣿⣿⣿⣿⣿⠟⣑⣛⣠⣶⣿⡏⣎⢁⠘⣿⣿
⣿⣿⣿⣿⣿⣆⡻⠿⠿⣿⣿⣿⣿⣿⣿⠿⢛⣥⣾⣿⡟⠛⢿⠃⡁⣿⣿⢠⣿⣿
⣿⣿⣿⣿⣿⣿⣿⣿⣦⣤⣤⣭⢰⣿⢞⣜⡩⠐⣉⡻⠿⠀⢁⣴⡇⡿⢉⣀⣍⢿
⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⢏⠆⣼⠿⠛⣡⣴⣿⣶⣝⠀⠀⢻⣿⠀⣰⣿⣿⣯⡜
⣿⣿⣿⣿⣿⣿⣿⣿⠟⣡⡎⡞⢁⣴⣿⣿⡿⢯⠙⠿⣷⣄⠸⡇⡾⠛⢦⢹⣷⢰
⣿⣿⣿⣿⣿⣿⠟⣱⡾⣫⢌⢠⣿⣯⣭⣭⣴⣿⣟⢐⣦⡘⢷⣄⠑⣐⠚⣘⣡⣾
⣿⣿⣿⠿⣋⣴⣿⡉⣴⡇⢢⣿⣿⣿⣿⣿⣿⣿⣿⠇⡙⣿⣦⢹⣧⣙⡻⢿⣿⣿
⣿⣿⠇⣺⡿⢛⡅⡇⣿⡇⢼⣛⣿⣿⣿⣿⠿⢛⡥⠴⠀⡻⢿⡸⢿⣿⣿⠢⢉⣿

⣿⣿⡀⣿⢰⣿⣧⣡⣿⡇⢊⠙⣛⣛⣩⠀⣚⣡⣶⣿⡇⣩⣾⣿⣦⣝⠮⣉⠂⡽
⣿⣿⣇⣛⣼⣿⣿⣿⣿⣿⣶⡌⣽⣷⢂⣾⣿⣿⣿⡿⢃⣭⣬⡛⣿⣿⣿⣦⣥⣤
⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣬⢱⣿⣿⣿⣿⡟⣱⠟⣿⣿⣷⡌⣿⣿⣿⣿⣿
⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⢸⣿⣿⡇⢉⣨⣴⠎⣻⣿⣿⣿⠘⣿⣿⣿⡿
⣿⣿⣿⣿⣿⣿⣿⠿⣋⣭⣭⣙⠛⠈⣽⡿⢇⣾⣿⢃⣾⣿⣿⣿⣷⡅⣿⣿⣿⣿
⣿⣿⣿⣿⣿⡟⣴⡿⠿⢿⣿⣿⣿⣿⣿⣷⢸⣿⣿⣦⣝⣛⣛⠻⢛⣃⣿⣿⣿⣿
⣿⣿⣿⣿⣿⣿⣮⡙⠻⠶⠮⣝⣻⣿⣿⣿⢸⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿
⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣷⣶⣦⣬⣭⣭⣼⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿

<3

PROGRAM BubbleSort(INPUT, OUTPUT);
VAR
Result: CHAR;
Ch, Ch1, Ch2: CHAR;
F1, F2: TEXT;
PROCEDURE Lexico(VAR F1, F2: TEXT; VAR Result: CHAR);
VAR
Ch1, Ch2: CHAR;
BEGIN {Lexico}
RESET(F1);
RESET(F2);
Result := '0';
WHILE (NOT EOLN(F1) AND NOT EOLN(F2)) AND (Result = '0')
DO
BEGIN
READ(F1, Ch1);
READ(F2, Ch2);
IF (Ch1 < Ch2) OR (EOLN(F1))
THEN
Result := '1'
ELSE
IF (Ch1 > Ch2) OR (EOLN(F1))
THEN
Result := '2'
END {WHILE}
END; {Lexico}
PROCEDURE CopyFile(VAR F1, F2: TEXT);
BEGIN
REWRITE(F2);
RESET(F1);
WHILE NOT EOLN(F1)
DO
BEGIN
READ(F1, Ch);
WRITE(F2, Ch)
END
END;
BEGIN
CopyFile(INPUT, F1);
Lexico
END.

⡴⠑⡄⠀⠀⠀⠀⠀⠀⠀ ⣀⣀⣤⣤⣤⣀⡀
⠸⡇⠀⠿⡀⠀⠀⠀⣀⡴⢿⣿⣿⣿⣿⣿⣿⣿⣷⣦⡀
⠀⠀⠀⠀⠑⢄⣠⠾⠁⣀⣄⡈⠙⣿⣿⣿⣿⣿⣿⣿⣿⣆
⠀⠀⠀⠀⢀⡀⠁⠀⠀⠈⠙⠛⠂⠈⣿⣿⣿⣿⣿⠿⡿⢿⣆
⠀⠀⠀⢀⡾⣁⣀⠀⠴⠂⠙⣗⡀⠀⢻⣿⣿⠭⢤⣴⣦⣤⣹⠀⠀⠀⢀⢴⣶⣆
⠀⠀⢀⣾⣿⣿⣿⣷⣮⣽⣾⣿⣥⣴⣿⣿⡿⢂⠔⢚⡿⢿⣿⣦⣴⣾⠸⣼⡿
⠀⢀⡞⠁⠙⠻⠿⠟⠉⠀⠛⢹⣿⣿⣿⣿⣿⣌⢤⣼⣿⣾⣿⡟⠉
⠀⣾⣷⣶⠇⠀⠀⣤⣄⣀⡀⠈⠻⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⡇
⠀⠉⠈⠉⠀⠀⢦⡈⢻⣿⣿⣿⣶⣶⣶⣶⣤⣽⡹⣿⣿⣿⣿⡇
⠀⠀⠀⠀⠀⠀⠀⠉⠲⣽⡻⢿⣿⣿⣿⣿⣿⣿⣷⣜⣿⣿⣿⡇
⠀⠀ ⠀⠀⠀⠀⠀⢸⣿⣿⣷⣶⣮⣭⣽⣿⣿⣿⣿⣿⣿⣿⠇
⠀⠀⠀⠀⠀⠀⣀⣀⣈⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⠇
⠀⠀⠀⠀⠀⠀⢿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⣿⠃