[PhoeniX]

Код:

var
  fname: string;
  f: textfile;
  pass,opass,npass,ppass: string;
begin
  fname:='c:/pass.txt';
  if FileExists(fname) then begin
    AssignFile(f,fname);
    Reset(f);
    readln(f,pass);
    CloseFile(f);
  end else pass:='';
  opass:=Edit1.Text;
  npass:=Edit2.Text;
  ppass:=Edit3.Text;
  if (pass=opass) and (npass=ppass) then begin
    AssignFile(f,fname);
    Rewrite(f);
    writeln(f,npass);
    CloseFile(f);
  end else begin
    if pass<>opass then ShowMessage('Неверный старый пароль')
    else if npass<>ppass then ShowMessage('Пароль не совпадает с подтверждением');
  end;
end;

Какбэ, у меня этот код работает - всё записывается норм...
Какой тип у f? должен быть textfile