Всем привет. Мне задали программу которая будет шифровать текст. Поискав на вашем форуме я нашла кусок кода, затем исправила его и получила вот это:
Мог бы мне кто-то помочь переписать ее, так что бы текст (несколько строк текста) нужно было брать из файла, вводить так же само ключ слово, так же шифровать, а затем сохранять результат в файле (имя которого мы вводим).
Пожалуйста, помогите :molitva: :molitva: :molitva: . С нетерпение жду исходник. :p2: :p2: :p2:

Что-то типа этого... Проверить сейчас не могу, могут быть опечатки...

var
 str: string;
 key: string;
 i: byte;
 f, f_out: text;
begin
  assign(f, 'text.txt'); reset(f);

  assign(f_out, 'result.txt'); rewrite(f_out);

  Writeln('введите ключ'); readln(key);
  while not eof(f) do begin
    readln(f, str);
    for i := 1 to length(str) do begin
      str[i] := chr( ord(str[i]) + ord(key[succ(i mod length(key))]) - pred(ord('a')) );
    end;
    writeln(f_out, str);
  end;
  close(f_out); close(f)
end.

      word[i] := chr( ord(str[i]) + ord(key[succ(i mod length(key))]) - pred(ord('a')) );

Там где [i] пишет error 88 : "(" expected
А когда меняешь на () пишет ошибку но уже где := error 122 : lnvalid variable reference

Что делать?

Да, я везде заменил, тут забыл Поменяй Word на Str

Str[i] := chr( ord(str[i]) + ord(key[succ(i mod length(key))]) - pred(ord('a')) );

Теперь следующая ошибка. файл запустился, я ввела ключ, а после нажатия Enter выводит ошибку №104 file not open for imput
Что делать?

Проверяй еще раз - я подправил...

большое спасибо всё рабоает :p4: