{* Зашифровать слово *}

Unit Z20;
Interface
Implementation
Begin
 writeln('Зашифровать слово, поставив букве её номер в алфавите');
End.

Program z20;

Uses z20.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  a : Array [1..33] Of String;
  p : String;
  n : integer;
  i : integer;
  j : integer;
Begin
  clrscr; {* Очищаем экран *}
  writeln('а б в г д е ё ж з и й к л м н о п р с т у ф х ц ч ш щ ъ ы ь э ю я');
  For i := 1 To 34 Do {* Цикл для i => [1 .. 34] *}
  Begin
    write('a[', i, '] = ');
    readln(a[i]);
  End;
  write('введите слово ');
  readln(p);
  n := length(p);
  For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
    For i := 1 To 34 Do {* Переменная i увеличивается с 1 до 34 *}
      If p[j] = a[i] Then
        write(i, ' ');
  readln; {* Приостановка программы. Ожидание Enter *}
End.