Даю 15 баллов за решение.
Вам дается строка, содержащая целое положительное число (возможно очень большое) без ведущих нулей. Вам разрешается обменять любые 2 символа строки (2 цифры числа), либо вы можете оставить исходное число. Обмен разрешается только в том случае, если в результате в строке не получилось ведущих нулей.
Среди всех возможных строк, полученных указанным выше способом найдите ту строку, которая задает наименьшее число из всех возможных.
Обратите внимание, что в результате не должно быть ведущих нулей, а также на то, что ответом может быть и сама исходная строка.
Входные данные:
Во входном файле input.txt в первой строке записана строка S, задающая целое положительное число без ведущих нулей.
Выходные данные:
В выходной файл output.txt ваша программа должна вывести строку, содержащую минимальное число, которое можно получить из исходной строки.

pastebin.com/u5mTSRbc

извините за мою невнимательность, код рабочий - поставьте значение imin:=99999999999 и все заработает

а лучше imin:=maxint;