Тема: шифратор на Турбо паскале

кто может помогите плиз написать прогу на паскале...
мне надо за неделю(то что будет написать прогу на паскале такую:
называеться "шифратор"...тоесть пользователь вводит текст, а шифратор его шифрует и виводит на экран результат...по вазможности зделать и обратное действие...
трудность состоит в том чтобы зделать обратный ход, тоесть пользователь уже вводит зашифрованый текст а шифратор выводит норм текст, и ещё подключить надо модуль граф...

шифровку шифратора можно зделать как угодно, даже +1 символ просто прибовлять...тоесть например есть слово "мама"-а шифратор его зашифрует как "нбнб"...можно зделать сложный шифратор тоесть например букву "Б" под номером 2 зашифровать по такой формуле Б(зашифрованое)=2+7*2-5*2 и выйдет число 6, и эта цыфра будет отвечать символу Б...

эта прога для меня важная она мне даст +15 балов к зачёту...помогите чем можете...расморю даже предложение насчёт того чтобы вас материально отблагодарить за помощ...

Program Shifr;
Uses Crt;

Var
Key:byte;
Fil:text;
I:integer;
Procedure Read_key;
Begin
Asm
Mov Ah,00h
Int 16h
Mov Key,ah
End;
End;

{main Code}
Begin
Clrscr;
Writeln('НАЧИНАЙТЕ ВВОДИТЬ СИМВОЛЫ:');
Assign(fil,'kod.txt');
Rewrite(fil);

Repeat
Read_key;
I:=ord(key);
I:=i+1;
Write(fil,i);
Until Key=1;
Close(fil);
End.

я тваю программу на половину токо понял...
но проблема не в этом...а в том что я запускаю откомпилированую прогу и оно зацыкливаеться после того как выводит сообщение чтобы ввадили текст...

Выход:
Until Key=1;
Единичку чтоли нажми.

НЕ Esc...

To Scinner: ПРОВЕРИМ, ПЕРЕДЕЛАЕМ...

НАЧИНАЙ ВВОДИТЬ, КОГДА ЗАКОНЧЕШЬ НАЖМИ ЭСКЕЙП.там где ехе файл будет создан файл kod.txt в нём будет твой текст закодированный последняя цифра всегда2 т.к. аски код клавиши ескейп рваен 1 , а 1+1 =2