File not found. Pascal.

[senechka_93]

Помогите пожалуйста! В процедуре GetList ошибка File not found. Что делать? Вот часть кода:

{$A+,B-,D+,E+,F-,G+,I+,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+}
{$M 65384,0,655360}

uses crt;
Const MAX_SIZE = 75;

type auto = record
        marka : string[25];
        nomer : string[11];
        fio : string[35];
     end;
     TNode = ^Node;
     Node = record
        info : auto;
        next : TNode;
     end;

var f : text;
    lBegin , lEnd : TNode;
    ChoosenRow , ListSize , ChoosenColumn : integer;


procedure FinishWork; {процедура, исполняемая по завершению программы. Очищаем выделенную динамическую память и сохраняем все в БД}
var u , uu : TNode;
Begin
    rewrite(f);
    u := lBegin;
    while (u <> Nil) do begin
        uu := u^.next;
        Writeln(f , u^.info.fio);
        WriteLn(f , u^.info.marka);
        WriteLn(f , u^.info.nomer);
        dispose(u);
        u := uu;
    end;
    lBegin := Nil;
    lEnd := Nil;
End;

procedure addToList(tmp : auto); {процедура добавления элемента в список}
var u : TNode;
begin
    inc(ListSize);
    new(u);
    u^.info := tmp;
    u^.next := Nil;
    if lBegin = Nil then
        lBegin := u
    else lEnd^.next := u;
    lEnd := u;
end;

procedure GetList; {процедура считывания данных из файла и сохранение их в динамическом списке}
var tmp : auto;
begin
    reset(f);
    lBegin := Nil;
    lEnd := Nil;
    while not eof(f) do begin
        readln(f , tmp.fio);
        readln(f , tmp.marka);
        readln(f , tmp.nomer);
        addToList(tmp);
    end;
end;




begin {основная программа}
    clrscr;
    assign(f , 'DB.dat');
    GetList;
    ViewDataBase;
    Close(f);
end.

[s-andriano]

Покажите здесь файл, из которого пытаетесь читать.

Кстати, по правилам хорошего тона структурного программирования, следовало бы файловую переменную описать локально, все операции с файлом - тоже локально, а в процедуру передавать имя файла.
Поверьте, если Вы так сделаете, искать ошибки будет намного проще.