1. Не понял, зачем вот этот кусок кода:
Код:
AssignFile(f, 'data/password.txt');
AssinFile(f, pass);
reset(f);
CloseFile(f);
2. Сразу вызывает подозрение такой способ задания имени файла:
'data/password.txt'
3. Структурно и логически это неправильно:
Код:
AssignFile(f, 'data/password.txt');
rewrite(f);
...
if spass=pass then begin
if npass=ppass then writeln(f, npass); CloseFile(f) end;
Т.к. открытие происходит всегда, а вот закрытие по условию.
Попробуйте переделать с учетом замечаний, может все и заработает.
