Помогите написать программку по Паскалю,пожалуйста.Знаменито, что коды строчных (больших)

Помогите написать программу по Паскалю,пожалуйста.

Известно, что коды строчных (заглавных) букв латинского алфавита следуют в таблице непрерывно друг за другом. Коды строчных букв латиницы также следуют постоянно друг за ином на расстоянии 32 знаков от прописных (ниже по таблице) .

Если ord('A') = 65, то ord('A')+32 = 97, и это код строчной буковкы а , то есть chr(ord('A')+32) = 'а'.

Напишите программку, в которой вы вводите прописную буковку (только латиницу!) , а получаете ее строчной эквивалент, и напротив, по строчной букве получаете подходящую строчную.