Получить в новом файле расшифровку данного текста

const
  DirectionDeShifr = 'C:\DeShifr.txt';
  DirectionShifr = 'C:\Shifr.txt';
var
  Shifr, DeShifr: Text;
  Str: String;
  i: Byte;
begin
  writeln('Содержимое зашифрованного файла: ');
  Assign(Shifr, DirectionShifr);
  Reset(Shifr);
  Assign(DeShifr, DirectionDeShifr);
  Rewrite(DeShifr);
  while not EOF(Shifr) do
  begin
    readln(Shifr, Str);
    writeln(Str);
    for i:=1 to Length(Str) do
      if (Ord(Str[i]) in [193..223]) or (Ord(Str[i]) in [225..255]) then
        Str[i]:=Chr(Ord(Str[i])-1)
      else if Str[i] = 'А' then Str[i]:='Я'
      else if Str[i] = 'а' then Str[i]:='я'
      else if Str[i] = 'Я' then Str[i]:='А'
      else if Str[i] = 'я' then Str[i]:='а';
    writeln(DeShifr, Str);
    Str:='';
  end;
  Close(Shifr);
  Close(DeShifr);
  writeln('Текст расшифрован!');
end.

program z;
const
a:array [1..33] of string=('à','á','â','ã','ä','å','¸','æ','ç','è','é','ê','ë','ì','í','î','ï','ð','ñ','ò','ó','ô','õ','ö','÷','ø','ù','ú','û','ü','ý','þ','ÿ');
var s,s1:string; i,j:integer; t,t1:text;
begin
     assign(t,'C:\text.txt');
     assign(t1,'C:\textclear.txt');
     reset(t);
     rewrite(t1);
     read(t,s);
     writeln('Çàøèôðîâàííûé òåêñò: ',s);
     for i:=1 to length(s) do
         begin
              for j:=1 to 33 do
                  if (lowercase(copy(s,i,1))=a[j]) and (lowercase(copy(s,i,1))<>'ÿ')
                     then
                         s1:=s1+a[j-1];
              if lowercase(copy(s,i,1))='ÿ'
                 then
                     s1:=s1+'à';
              if copy(s,i,1)=' '
                 then
                     s1:=s1+' ';
         end;
     writeln('Ðàñøèôðîâêà: ',s1);
     write(t1,s1);
     close(t);
     close(t1);
end.