Шифрование текстового файла

[pomoshnic]

Помогите найти ошибки в программе.
Я написал программу для шифрования текстового файла, но почему-то на 20 строчке выдает ошибку: error 3: path not found.
Вот код:

program pomoshnic;
uses crt;
procedure sshifr;
var sinp,sout:text;
    sc:^char;
    ss:^string;
begin
  new(ss);
  clrscr;
  write('Vvedite [put] ima faila: ');readln(ss^);
  assign(sinp,ss^);
  {$i-}reset(sinp);{$i+}
  if ioresult<>0 then
  begin
    dispose(ss);
    writeln('fail ne naiden');
    readln;
    exit
  end;
  rename(sinp,ss^+'.tmp');{error 3: path not found}
  assign(sout,ss^);
  rewrite(sout);
  dispose(ss);
  new(sc);
  while not eof(sinp) do
  begin
    read(sinp,sc^);
    if ord(sc^) in [0..128] then sc^:=chr(ord(sc^)+128)
    else sc^:=chr(ord(sc^)-128);
    write(sout,sc^);
  end;
  dispose(sc);
  close(sout);close(sinp);
  erase(sinp);
  writeln('Dla povtornogo shifrovania',#10,#13,'nagmitelubuu klavishy kromer ''esc''');
  sc^:=readkey;
  if sc^<>#27 then sshifr;
end;
begin
  sshifr
end.

Заранее благодарен.

[KingOfNothing]

Тогда очевидно, что файл не найден. Точно файл существует? может в проверке ошибка

[pomoshnic]

Точно файл существует? может в проверке ошибка

Точно. Я со всякими файлами пробовал. А если ввести неправильное имя, тогда выводит fail ne naiden.

[Sazary]

У меня ощущение, что программе не нравится новое имя, в котором как бы присутствует два расширения (.txt.tmp).
Сделал так:

rename(sinp,copy(ss^,1,length(ss^)-3)+'tmp');

Файл переименовывается. Только теперь там другая ошибка, но, думаю, она уже связана с чем-то другим.

И еще: перед переименованием файл нужно закрыть:

close(sinp);
rename(sinp,copy(ss^,1,length(ss^)-3)+'tmp');

[Sazary]

Все, исправил. Отметил в листинге, что добавил:

program pomoshnic;
uses crt;
procedure sshifr;
var sinp,sout:text;
    sc:^char;
    ss,newss:^string;  { -- newss - добавил --}

begin
  new(ss);
  clrscr;
  write('Vvedite [put] ima faila: ');readln(ss^);
  assign(sinp,ss^);
  {$i-}reset(sinp);{$i+}
  if ioresult<>0 then
  begin
    dispose(ss);
    writeln('fail ne naiden');
    readln;
    exit
  end;
  close(sinp);
  new(newss);  { <----}
  newss^ := copy(ss^,1,length(ss^)-3)+'tmp'; { <-----}
  rename(sinp,newss^);
  assign(sinp,newss^);  { <-----}
  reset(sinp);        { <---- }
  assign(sout,ss^);
  rewrite(sout);
  dispose(ss);
  dispose(newss);  { <------ }
  new(sc);
  while not eof(sinp) do
  begin
    read(sinp,sc^);
    if ord(sc^) in [0..128] then sc^:=chr(ord(sc^)+128)
    else sc^:=chr(ord(sc^)-128);
    write(sout,sc^);
  end;
  dispose(sc);
  close(sout);
  close(sinp);
  erase(sinp);
  writeln('Dla povtornogo shifrovania',#10,#13,'nagmitelubuu klavishy kromer ''esc''');
  sc^:=readkey;
  if sc^<>#27 then sshifr;
end;
begin
  sshifr
end.

[pomoshnic]

Я не могу оставить вам отзыв, Sazary, т.к. последний раз я оставил его вам, но все равно огромное спасибо.