Кодирование текстовой информации в числовую

[Elvina]

Здравствуйте.
Необходимо закодировать текстовую информацию в определенную последовательность цифр.

Программа заключается в том, чтобы программа при запуске запрашивала - "Введите сообщение". После чего пользователь вводить какие-либо английские слова и затем они кодируются в определенную последовательность чисел.
Я начала написание своей программы таким образом:

const 
n=15;
vtext: array[1..27] of char=('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','.');
vcode: array[1..27] of char=('111','112','113','121','122','123','131','132','133','211','212','213','221','222','223','231'
                                 ,'232','233','311','312','313'
                                ,'321','322','323','331','332','333');
 
var
mytext: array[1..n] of char;
mycode: array[1..n] of char;
i,j: integer;
begin
...

Но он начал выдавать ошибку следующего рода:
Program1.pas(4,30): Нельзя преобразовать тип string к char

Как я поняла, он не может брать сразу трехзначное число '111', '112' и т.д.
Тогда каким образом можно обыграть это?
Спасибо за советы!

[Serge_Bliznykov]

правильно ругается.
у Вас же код состоит из 3-х символов. Как же вы в ОДИН char пытаетесь записать 3 символа?!

можно так попробовать:

type
  str3 = string[3];
const 
vtext: array[1..27] of char=('a','b','c','d','e','f','g','h','i','j','k','l','m',
      'n','o','p','q','r','s','t','u','v','w','x','y','z','.');
vcode: array[1..27] of str3=('111','112','113','121','122','123','131','132','133',
      '211','212','213','221','222','223','231','232','233','311','312','313','321',
      '322','323','331','332','333');
 
var
  mytext: string;
  mycode: array[1..255] of str3;
  i,j,k, n: integer;
begin
  repeat
    WriteLn('Input text ( english letter only ) ');
    Readln(mytext);
    k := 0;
    for i := 1 to Length(mytext) do
      if Pos(mytext[i], vtext) = 0 then Inc(k);
    if k<>0 then WriteLn('Error! You input not english letters!');
  until k=0;

  n := Length(mytext);
  for i := 1 to Length(mytext) do
      mycode[ i ] := vcode[ Pos(mytext[i], vtext) ];

  WriteLn('Encoded message:');
  for i := 1 to n do
      Write(mycode[ i ]);
  WriteLn;
  Readln
end.

[Azalia999]

Здавствуйте! Не могли бы вы полностью написать код программы?

[VIK_aka_TOR]

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

Здавствуйте! Не могли бы вы полностью написать код программы?

а вам собственно в посте выше чего не хватает? строчки:

program blablabla;

?

p.s. еще и в старую чужую тему влезли

[Serge_Bliznykov]

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

Здавствуйте! Не могли бы вы полностью написать код программы?

Вы будете смеяться, но это ПОЛНЫЙ код программы.
Если Вы хотите скомпилировать её в Delphi, то создайте консольное приложение и в него вставьте данный код.

ну или просто допишите в начале программы:

program Coder1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

.....