ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

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

Код:

var
  FromName,
  ToName    : String;
  myfile,
  cryptfile : file;
  NumRead,
  NumWritten: Integer;
  OneByte   : Byte;
begin
  AssignFile(myfile, FromName);
  Reset(myfile, 1);
  AssignFile(cryptfile, ToName);
  Rewrite(cryptfile, 1);
  repeat
    BlockRead(myfile, OneByte, 1, NumRead);
    oneByte:= oneByte+c;
    BlockWrite(cryptfile, OneByte, 1, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);
  CloseFile(myfile);
  CloseFile(cryptfile);
end;