помогите написать 1 програмку, замена букв в строке Опции

[director]

Буду очень благодарен, если вы хоть как-то поможете с написанием этой программы:
Зашифруйте фразу, заменив букву а на у, букву и на ю и букву е на букву я. После запроса расшифруйте фразу.
(принцип: в окне пользователя пользователь сам вводит любую фразу, далее заменяются соответствующие буквы и фраза выдается в зашифрованном виде. Далее программа спрашивает: "расшифровать фразу?", если вы отвечаете "да" то происходит обратная замена букв и вывод первоначальной фразы.)
заранее всем благодарен!

[Айра]

согласен косяк, это я с просонья)
исправляюсь:

А у меня она не шифрует вообще.. Может коды символов разные?

Раз уж сделала, то выложу и свой вариант:

uses wincrt;
var
ch: array[1..50] of integer;    {здесь храним номера измененных символов}
s,c: string;
i,j: integer;
begin
j:=1;
writeln ('введите строку');
readln(s);
 for i:=1 to length(s) do
   begin
     case s[i] of
     'и': begin
            s[i]:='ю';
            ch[j]:=i;
            inc(j);
          end;
     'е': begin
            s[i]:='я';
            ch[j]:=i;
            inc(j);
          end;
     'а': begin
            s[i]:='y';
            ch[j]:=i;
            inc(j);
          end;
     end;
   end;
writeln('Зашифровано: ',s,'');
writeln;
 writeln('расшифровать? y/n');
 readln©;
 if c='y' then
 	begin
    for i:=1 to j do
      begin
        case s[ch[i]] of                          {расшифровываем только символы с сохраненными номерами}
        'у': s[ch[i]]:='а';
        'я': s[ch[i]]:='е';
        'ю': s[ch[i]]:='и';
        end;
      end;
    writeln('Расшифровано: ',s,'');
  end;
readln
end.

Сообщение отредактировано: Айра - 18.05.2007 12:50