помогите написать программу на PascalABCNET

Хакер Василий получил доступ к классному журналу и хочет заменить все свои минимальные оценки на максимальные. Напишите программу, которая заменяет оценки Василия, но наоборот (все максимальные — на минимальные).

ВХОДНЫЕ ДАННЫЕ

Дано количество оценок Василия (не больше 100), затем сами оценки.

ВЫХОДНЫЕ ДАННЫЕ

Требуется вывести исправленные оценки в том же порядке.

я ввел 5 1 3 3 3 4

через другой компилятор получилось

спасибо

В девятую строку вместоif (S[i]<>' ') then C+=S[i]напиши if (S[i]<>' ')and(S[i] in ['0','1','2','3','4','5','6','7','8','9']) then C+=S[i]глючить перестанет

Да не за что=)

__________________________