Работа с файлами, Помогите девушке дописать программу. Опции

[Delixa]

Всем привет. Мне задали программу которая будет шифровать текст. Поискав на вашем форуме я нашла кусок кода, затем исправила его и получила вот это:

Код

var
 word: string;
 key: string;
 i: byte;
begin
Writeln('bbedite world');
readln(word);
Writeln('bbedite key');
readln(key);
 for i := 1 to length(word) do begin
   word[i] := chr( ord(word[i]) + ord(key[succ(i mod length(key))]) - pred(ord('a')) );
 end;
 writeln(word);
 readln(word);
end.

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