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