Pascal.Перекодировка символов.

[votek]

Помогите пожалуйста написать программу...
нужно решить данную задачу..

Прочитать m групп (2 <= m <= 10) до n штук символов в группе (4 <= n <= 50). В каждой группе определить, каких латинских символов является больше: больших или малых и перекодировать все латинские буквы в тот регистр, символов которого является больше. Написать подпрограммы (функции, процедуры) для чтения и вывода групп и реализации описанной операции. Перекодировка латинских символов выполнять изменяя (добавлением или вычитанием) их кодов.