[MrBadge]

блин, в cmd все прекрасно работает, а тут в файл не пишется зашифрованной сообщение ... может, кто-нибудь знает, в чем дело?

Код:

procedure TForm1.btn1Click(Sender: TObject);
begin
  AssignFile(F, 'Shifr.txt');
  AssignFile(e, 'Zashifrovano.ppc');
  if IOResult<>0 then
  Erase(e);
  edt1.text:=S;
  b:= length(s);
  Try StrToInt(Edt2.text);
  except
   on Exception: EConvertError do
  ShowMessage('Введите правильно число!');
  end;
    for I := 1 to b do begin
      u:=u+1;
      if s[i]=chr(120) then
        a[i]:=chr(97) else
          if s[i]=chr(121) then
            a[i]:=chr(98) else
          if s[i]=chr(122) then
            a[i]:=chr(99) else
          if s[i]=chr(32)then
            a[i]:=chr(36) else
      a[i]:=chr(ord(s[i])+t);
      y[u]:=a[i];
    end;
    Rewrite(f);
    for u:=1 to b do
    write(f, y[u]);
    CloseFile(f);
    if FileExists('Zashifrovano.ppc') then
    Erase(e);
    Rename(f, 'Zashifrovano.ppc');


end;