Замена букв в текстовом файле Опции

[ВанXelsing]

Помогите с написанием проги, для получения зачета, до понедельника срочно нужно.
Задание:Надо написать прогу которая читает текст из одного файла и меняет(кодирует) каждую букву на следующую букву алфавита, при этом должен использоваться еще один текстовый файл, в котором написанно какие буквы из текста меняются на другие. Т.е. вид примерно такой:
а:=б
б:=в
в:=г
ну и.т.д. Я попытался сделать, но не получается, символы из файла, где содержится выше указзанный тип кодировки, не распазнаются как текст, а получаются место букв всякие сердечки и квадратики и.т.д. Хелп кто знает как это пишется.
Вот код моей проги, которую я попробовал написать.

Код

uses CRT;
var
   F,fs:text;        переменных}
   Buf:array[1..4096] of Char;
   St,sts:String[255];
   str:string;
   i,y:longint;
begin
 ClrScr;
 str:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
 Assign(fs,'C:\shifr.txt'
 reset(fs);
 while not eof(fs) do begin
 readln(fs,sts);
end;
 Assign(f,'C:\Text.txt');
 SetTextBuf(f,Buf);
 Reset(f);
  While not EOF(F)do
   begin
    readln(F,St);
for i:=1 to Length(St) do begin
 if St[i]='a' then St[i]:=Sts[y];
    write(ST[i]);
 end;
end;