Задача на текстовые файлы(Delphi)

[MOTOCoder]

А собственно символы из файла читаются?
Может идет ошибка при чтении, и в переменных получаются нули.
Попробуйте вывести прочитанные символы на экран, по идее все должно работать.

[DOM]

Я переправил 3-ю процедуру вот так:

Код: Выделить всё

procedure TForm1.N3Click(Sender: TObject);  //Процедура открытия файла
begin
   Reset(F);
    while filepos(F)<>2 do
    Read(F,m);
   while filepos(F)<>3 do
    Read(F,n);
   Label2.Caption:=m;
   Label3.Caption:=n;
end;

Работает все замечательно. Как вы думаете таким методом можно делать?значения filepos(F) с какого вообще начинаются? С 0? Правильно ли тогда я написал?

P.s В Label'ы выводит 1-й символ и 2-й!(вроде правильно)

[MOTOCoder]

Как-то FilePos не пользовался, но элементы вроде с 1 считаются.
Можно попробовать читать через TFileStream, у меня с ним никогда проблем не было.

[somewhere]

FilePos - отсчет элементов с нуля. Filepos не может быть больше Filesize - отсюда даже если не помнишь, легко догадаться.