Деление на 0 (200 ошибка) - Pascal

Формулировка задачи:

У меня ошибка деления на ноль выскакивает при попытке считывания с файла данных. не могу понять почему она выскакивает. Вот код, в файле находится 3820 байт. (Именно столько, сколько и должно быть)

procedure readBazaFromFile(Var Baza);
var atributFile:word;
    F:File;
    Error:Word;
begin
    assign(f,BazaPath);
    GetFAttr(F,AtributFile);
    setFAttr(F,$00);
    reset(F,SizeOf(Baza));
    seek(F,0);
    BlockRead(F,Baza,1);
    SetFattr(F,AtributFile);
    close(f);
end;

Сорри, нашёл ошибку, всё работает =) Всё просто, как оказалось. Не указал тип параметра в описании процедуры.

Решение задачи: «Деление на 0 (200 ошибка)»

Листинг программы

procedure readBazaFromFile(Var Baza:ArrayUser);
var atributFile:word;
    F:File;
begin
    assign(f,BazaPath);
    GetFAttr(F,AtributFile);
    setFAttr(F,$00);
    reset(F,SizeOf(Baza));
    BlockRead(F,Baza,1);
    SetFattr(F,AtributFile);
    close(f);
end;

Объяснение кода листинга программы

Объявлены внешние переменные: — atributFile:word; — F:File;
Выполняется процедура Assign(F,BazaPath), где F – это дескриптор файла, а BazaPath – путь к файлу с базой данных.
Выполняется функция GetFAttr(F,AtributFile), где F – это дескриптор файла, а AtributFile – переменная для хранения атрибутов файла.
Выполняется функция SetFattr(F,00), где F – это дескриптор файла, а 00 – код атрибута файла.
Выполняется функция Reset(F,SizeOf(Baza)), где F – это дескриптор файла, а SizeOf(Baza) – размер массива Baza.
Выполняется функция BlockRead(F,Baza,1), где F – это дескриптор файла, а Baza – массив для чтения данных из файла.
Выполняется функция SetFattr(F,AtributFile), где F – это дескриптор файла, а AtributFile – переменная с атрибутами файла.
Выполняется функция Close(F), где F – это дескриптор файла.