Поиск элемента в типизированном файле

[Solidera]

Поставлена задача - создать типизированный файл из n псевдослучайных символов от "А" до "Я" (или считать элементы из текстового файла), без переписывания в массив найти в файле первый символ "Д" или "Е" и найденный поменять местами с первым элементом.

Насколько я понимаю, для замены необходимо найти номер обнаруженного символа "Д" (или "Е", какой первый попадётся). Но в качестве номера у меня вылазит какое-то дикое число, абсолютно не соответствующее даже общему количеству элементов.

Кусок кода, вызывающий вопросы:

procedure TForm1.Button4Click(Sender: TObject);
var
  f: file of Char;
  n,i: integer;
  r: Char;
  flag:Boolean;
begin
  AssignFile(f, Edit1.Text);
  try
    Reset(f);
      try
        flag:=False;
        while not Eof(f) and not flag do
        begin
          read(f,r);
          if r in ['Д','Е'] then flag:=True;
          inc(i);
        end;
        Label3.Caption:=Label3.Caption+inttostr(i);
      finally
        CloseFile(f);
      end;
  except
    ShowMessage('Не удалось открыть типизированный файл '+ Edit1.Text);
  end;
end;

Буду благодарна за любой совет.

[Serge_Bliznykov]

забыли проиницилизировать i (нолик присвоить счётчику)

begin
  i := 0;
  AssignFile(f, Edit1.Text);
  try
    Reset(f);
...

ну и Д и Е могут вообще отсутствовать, поэтому лучше

        flag:=False;
        while not Eof(f) and not flag do
        begin
          read(f,r);
          if r in ['Д','Е'] then flag:=True
          else 
            inc(i);
        end;
        if flag then
           Label3.Caption:='Позиция символа ' + r +' = ' + inttostr(i)
        else
           Label3.Caption:= 'Не найден ни один из символов!';