Код:
AssignFile(f, 'data/password.txt');
AssinFile(f, pass);
reset(f);
CloseFile(f);
AssignFile(f, 'data/password.txt');
rewrite(f);
spass:=Edit1.text;
npass:=Edit2.text;
ppass:=Edit3.text;
if spass=pass then begin
if npass=ppass then writeln(f, npass); CloseFile(f) end;
После выполнения процедуры файл оказывается пустым. Условия выполняются 100%