Delphi массивы

[Misty]

Помогите найти ошибку в коде?

var
  s:array[1..35] of char=
  ('я','а', 'б', 'в' ,'г', 'д', 'е', 'ё', 'ж',
   'з', 'и' ,'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р',
    'с' ,'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я','а');

procedure TForm1.Button1Click(Sender: TObject);
var
a,s:string;
i,j:integer;

begin
a:=Edit1.text;
 for i:=1 to length(s) do
   for j:=34 downto 1 do begin

 if  s[i]=a[j] then begin
        s[i]:=a[j+1] ;

        end;
  end;
end;

Задача заключалась в том, чтобы зашифровать текст методом замены каждой буквы на последующую в алфавите ('я' заменяется на 'а')

[mihali4]

Вы чуточку перемудрили
Попробуйте вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
a,sa:string;
i,j:integer;
begin
sa:='';
a:=Edit1.text;//исходный
for i:=1 to length(a) do
begin
for j:=34 downto 1 do
begin
if a[i]=s[j] then
sa:=sa+s[j+1] ;
end;
end;
Edit2.Text:=sa;//"зашифрованный"
end;

[Misty]

работает!!!!!!!!!! =))))

только вот проблема... мне нужно зашифровать текст, а не одно слово..

если ввести какую-нибудь фразу, он не считывает пробелы.. и получается всё сплошняком

всё) вроде бы разобралась))

дописала к массиву ещё 5 пунктиков..

(..' ',',','.','!','?');

и сделала так

for j:=36 to 40 do
  if a[i]=s[j] then
  sa:=sa+s[j];

вроде покатит)))

спасибо за помощь!!!!!!!!!!