Вывод в файл (создание простой БД) — Pascal(Паскаль)

program sdb;

label
     fin;
const
     IZD=3; { количество наименований изделий }
var
     f:text;
     day,month:integer; { месяц и число }
     prod:array[1..3] of integer; { число произведенных деталей }
                                  { трех наименований }
     dbase:string;     { имя файла }
     i:integer;
begin
     write('Введите в одной строке через пробел число и ',
            'месяц (от 1 до 12) ->');
     readln(day,month);
     for i:=1 to IZD do
          begin
               write('Изделие',i:1,'->' );
               readln(prod[i]);
          end;
     { запишем введенные данные и результат в файл }
     dbase:='a:\report.db';
     assign(f,dbase);
        {$I-}
        append(f);      { открываем файл для добавления информации }
        {$I+}
        if IOResult <> 0
           then begin
                {$I-}
                rewrite(f);
                {$I+}
                if IOResult <> 0
                   then
                       begin
                            writeln('Ошибка создания файла!');
                            goto fin;
                        end;
            end;
     write(f,day,' ',month,' ');
     for i:=1 to IZD-1 do write(f,prod[i],' ');
        writeln(f,prod[IZD]);
     close(f);
     writeln('Данные добавлены в базу ',dbase );
fin:
end.