убрать ввод ключа из программы var a,b,c:string;
i,j,k,d:integer;
begin
writeln('Исходный текст');
readln(a);
writeln('ключ');
readln(d);
b:='';
for i:=1 to length(a) do
for j:=1 to length(b) do
begin
k:=(j+d) mod 32;
if k > 33 then k:=k-33;
if a[i]=b[j] then c:=c+b[k];
end;
writeln(c);
end.

1. Сначала посмотри на название статьи, параграфа, брошюры и т. д.
2. Вспомни и запиши все, что ты знаешь или только слышал по этой теме. Можешь записать и свои предположения.
3. Обменяйся информацией с приятелем.
4. Составляется коллективный «банк предложений».
5. Прочитай текст, делая пометки карандашом.

 - уже знал;

 + - новая для меня информация;
 - - думал иначе;
  ? - не понял, есть вопросы.
6. Текст прочитан. Вернитесь к первоначальным записям. Какие подтвердились? Какие предположения оказались ложными? Какие не нашли подтверждения?
7. Чтобы превратить информацию в знания, необходимо проговорить и осмыслить прочитанное.
Этапы стратегии IDEAL
I — Выделите в тексте проблему. Какую главную проблему должны решить герои?
D -- Опишите ее (выявите ее суть).Какой важной информацией снабдил вас автор?
Е - Определите варианты подходов к. решению проблемы. Каковы на ваш взгляд три главных решения проблемы?
А-- Действуйте (решайте). Какой из выбранных вами наилучший?
L — Сделайте вывод, проведите рефлексию своей работы. 
. 

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=''+
         '';
  foreach var c in s do Writeln(c,' ',ORDANSI(c))
end.

Результат
А 192
Б 193
В 194
Г 195
Д 196
Е 197
Ё 168
Ж 198
З 199
И 200
Й 201
К 202
Л 203
М 204
Н 205
О 206
П 207
Р 208
С 209
Т 210
У 211
Ф 212
Х 213
Ц 214
Ч 215
Ш 216
Щ 217
Ъ 218
Ы 219
Ь 220
Э 221
Ю 222
Я 223
а 224
б 225
в 226
г 227
д 228
е 229
ё 184
ж 230
з 231
и 232
й 233
к 234
л 235
м 236
н 237
о 238
п 239
р 240
с 241
т 242
у 243
ф 244
х 245
ц 246
ч 247
ш 248
щ 249
ъ 250
ы 251
ь 252
э 253
ю 254
я 255