Задать код символам

[новеньк]

Помогите новичку. Использую Pascal ABC.
Как сделать так чтобы вместо символов которые я ввожу выдавало их код, только чтобы код символов был задан мной.
Например ввожу: абв
A выводит: 050912

[MisterDie]

Т.е. для определённой буквы определённая(ые) цифра(ы)? Тогда для каждой буквы придётся задать отдельную переменную (если вы хотите присвоить им каждый раз новое значение).

[BDA]

const
  alp = 'abcd';
  enc = #5#7#8#10;

var
  c: char;
  p: integer;

begin
  repeat
    read(c);
    p := pos(c, alp);
    if p > 0 then
      write(ord(enc[p]), ' ')
    else
      write(c, ' ');
  until c = #13;
  readln;
  readln;
end.

[MisterDie]

Сообщение от BDA

const
  alp = 'abcd';
  enc = #5#7#8#10;
...
  until c = #13;
  readln;
  readln;
end.

Not Bad.

"Набранное вами сообщение слишком короткое. Увеличьте ваше сообщение до 10 символов." - что за бред?

[новеньк]

То что предложил BDA мне подходит. На первый взгляд всё работает.

[новеньк]

Забыл сказать, в некоторых случаях мне нужно буквы заменить не только на цифры но и на буквы с цифрой и на две буквы. По способу BDA так не получается.
Заранее спасибо.

[BDA]

const
  alp = 'abcd';
  enc: array [1 .. 4] of string[2] = ('05', '07', 'ab', '10');

var
  p, i: integer;
  s: string;

begin
  readln(s);
  for i := 1 to length(s) do
  begin
    p := pos(s[i], alp);
    if p > 0 then
      write(enc[p], ' ')
    else
      write(s[i], ' ');
  end;
  readln;
end.

Если символов всегда два:

const
  alp = 'abcd';
  enc = '0507ab10';

var
  p, i: integer;
  s: string;

begin
  readln(s);
  for i := 1 to length(s) do
  begin
    p := pos(s[i], alp);
    if p > 0 then
      write(enc[2 * p - 1], enc[2 * p], ' ')
    else
      write(s[i], ' ');
  end;
  readln;
end.

[новеньк]

Спасибо, всё работает.