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

Сущность программки содержится в транслитерации на другие знаки. Человек избирает что ему сделать перевести "privet" в знаки или наоборот. Как сделать эту прогу через else. Выбивает оплошности. Т.е. должно поначалу выходить 1) "что вы желаете сделать: перевести мое известие (нажмите 1) либо перевести сообщение от меня(т.е. в обыденный алфавит). 2)юзер избирает либо 1 либо 2(если 1 то транслитерация из букв в знаки по другому из символов в буковкы) 3)Пользователь вводит буковкы либо цифры и ему выдает переведенный итог. Как сделать программку через else? Она работает и так, но для того, чтоб избрать первый вариант приходится вводить цифру 1 много раз. С цифрой 2 все в порядке. Помогите пожалуйста, отдаем практически все балы.

Var a1,a4, a5, a6, i :integer;
Var a3, a2, b1, b2, b3 : string;

begin
Write ('Hello! What do you want from me? It is that what I can: 1)translate message encrypted by me(enter 1) or encrypt message inputted by me(enter 2)');
readln (a2);
if a2 = '2'
then
writeln('enter your message');
readln(a3);
for i := 1 to length(a3) do
begin
if a3[i]='a' then a3[i]:= '*';
if a3[i]='b' then a3[i]:= '+';
if a3[i]='c' then a3[i]:= '-';
if a3[i]='d' then a3[i]:= '=';
if a3[i]='e' then a3[i]:= '!';
if a3[i]='f' then a3[i]:= '@';
if a3[i]='g' then a3[i]:= '';
if a3[i]='h' then a3[i]:= '%';
if a3[i]='i' then a3[i]:= 'amp;';
if a3[i]='g' then a3[i]:= ')';
if a3[i]='k' then a3[i]:= '(';
if a3[i]='l' then a3[i]:= '';
if a3[i]='m' then a3[i]:= '';
if a3[i]='n' then a3[i]:= '^';
if a3[i]='o' then a3[i]:= '\';
if a3[i]='p' then a3[i]:= '/';
if a3[i]='q' then a3[i]:= '';
if a3[i]='r' then a3[i]:= '';
if a3[i]='s' then a3[i]:= ']';
if a3[i]='t' then a3[i]:= '[';
if a3[i]='u' then a3[i]:= ':';
if a3[i]='v' then a3[i]:= ';';
if a3[i]='w' then a3[i]:= 'gt;';
if a3[i]='y' then a3[i]:= 'lt;';
if a3[i]='z' then a3[i]:= '?';
if a3[i]=' ' then a3[i]:= ' ';
if a3[i]='x' then a3[i]:= ',';
if a3[i]='.' then a3[i]:= '.';
write(a3[i]);
end;
if a2 = '1'
then
writeln('enter my message');
readln(a3);
for i := 1 to length(a3) do
begin
if a3[i]='*' then a3[i]:= 'a';
if a3[i]='+' then a3[i]:= 'b';
if a3[i]='-' then a3[i]:= 'c';
if a3[i]='=' then a3[i]:= 'd';
if a3[i]='!' then a3[i]:= 'e';
if a3[i]='@' then a3[i]:= 'f';
if a3[i]='' then a3[i]:= 'g';
if a3[i]='%' then a3[i]:= 'h';
if a3[i]='amp;' then a3[i]:= 'i';
if a3[i]=')' then a3[i]:= 'j';
if a3[i]='(' then a3[i]:= 'k';
if a3[i]='' then a3[i]:= 'l';
if a3[i]='' then a3[i]:= 'm';
if a3[i]='^' then a3[i]:= 'n';
if a3[i]='\' then a3[i]:= 'j';
if a3[i]='/' then a3[i]:= 'p';
if a3[i]='' then a3[i]:= 'q';
if a3[i]='' then a3[i]:= 'r';
if a3[i]=']' then a3[i]:= 's';
if a3[i]='[' then a3[i]:= 't';
if a3[i]=':' then a3[i]:= 'u';
if a3[i]=';' then a3[i]:= 'v';
if a3[i]='gt;' then a3[i]:= 'w';
if a3[i]='lt;' then a3[i]:= 'y';
if a3[i]='?' then a3[i]:= 'z';
if a3[i]=' ' then a3[i]:= ' ';
if a3[i]=',' then a3[i]:= 'x';
if a3[i]='.' then a3[i]:= '.';
write(a3[i]);
end;
end.

Егор 2019-01-02 20:20:04

Вынеси эти строки из условия: writeln('enter my message'); readln(a3); и напиши сходу после readln (a2); (выбора 1 либо 2)