Работа с файлами данных в Pascal

for i:=1 to 20 do

  Read (F, v); {в переменной v значение 20-го компонента файла}

Reset(F); {а сейчас мы снова готовы читать 1-й компонент}

  FILENAME = 'example.dat';

var

  F: File of char;

  ch: char;

  i: integer;

begin

  writeln('Работаем с файлом "example.dat"');

  Assign(F, FILENAME);

  Rewrite(F);

  writeln('Текущий размер файла = ', FileSize(F));

  writeln('Текущая позиция в файле = ', FilePos(F));

  for i:=1 to 20 do begin

    ch:=chr(ord('0')+random(10));

    Write(F,ch);

    end;

  writeln('Теперь размер файла - ', FileSize(F));

  writeln('И текущая позиция в нем - ', FilePos(F));

  Seek(F, FileSize(F) div 2);

  writeln('Теперь текущая позиция = ', FilePos(F));

  ch:='У'; Write(F,ch);

  ch:='Р'; Write(F,ch);

  ch:='А'; Write(F,ch);

end.

Текущий размер файла = 0

Текущая позиция  в файле = 0

Теперь размер файла - 20

И текущая позиция  в нем - 20

Теперь текущая  позиция = 10

(******************************************************

* Для задач об  имитации базы  данных "Библиотека" при  *

* помощи типизированного  файла. Создание  библиотеки   *

* из случайно генерируемых  книг.                      *

******************************************************)   

const

  {константы для жанров}

  KINDSNUM = 6;

  KINDMAX = 10;

  CKinds : array [1..KINDSNUM] of string[KINDMAX] =

    ('Проза','Учебная','Детская','Фантастика','Классика','Поэзия');   

  {константы для авторов}

  AUTHORSNUM = 17;

  AUTHORMAX = 15;

  CAuthors : array [1..AUTHORSNUM] of string[AUTHORMAX] =

    ('А.С.Пушкин','Н.В.Гоголь','Ф.М.Достоевский','В.Астафьев','С.Лем',

     'А.П.Чехов','Ф.Купер','А.Дюма','С.Лукьяненко','О.Дивов','В.Лукин',

     'Т.Сван','Б.Страуструп','У.Гибсон','Н.Стивенсон','Р.Рюкер','Н.Носов');   

  {константы для названий}

  NAMESNUM = 34;

  NAMEMAX = 40;

  CNames : array [1..NAMESNUM] of string[NAMEMAX] =

    ('Руслан и Людмила','Сказка о рыбаке и рыбке','Мертвые души',

     'Вечера на хуторе близ Диканьки','Преступление и наказание',

     'Братья Карамазовы','Идиот','Царь-рыба','Рассказы','Жалобная книга',

     'Лошадиная фамилия','Зверобой','Следопыт','Три мушкетера','Две Дианы',

     'Императоры иллюзий','Фальшивые зеркала','Спектр','Выбраковка',

     'К-10','Рыцари кувалды','Миссионеры','Программирование в Delphi',

     'Программирование в Borland Builder C++','Язык С++ для профессионалов',

     'Джонни-мнемоник','Нейромант','Все вечеринки завтрашнего дня',

     'Лавина','Алмазный век','Белый свет','Приключения Незнайки',

     'Веселая семейка','Мишкина каша');  

  {константы для издательств}

  PUBLICSNUM = 9;

  PUBLICMAX = 15;

  CPublics : array [1..PUBLICSNUM] of string[PUBLICMAX] =

    ('АСТ','Дрофа','Амфора','Альфа-книга','Радио и связь','Питер','Наука',

     'Эксмо','Медицина');   

type

  TBook = record

    Kind: string[KINDMAX];

    Author: string[AUTHORMAX];

    Name: string[NAMEMAX];

    Public: string[PUBLICMAX];

    Year: word;

  end;  

var

  Library: File of TBook;

  FileName: string;

  book: TBook;

  num, tmp, minyear, maxyear, i: word;

  ask: char;  

begin

  {вводим диапазоны}

  write('Введите количество книг в библиотеке: '); readln(num);

  write('Введите минимальный год издания: '); readln(minyear);

  write('Введите максимальный год издания: '); readln(maxyear);

  {минимум должен быть меньше максимума}

  if minyear>maxyear then begin

    tmp:=minyear;

    minyear:=maxyear;

    maxyear:=tmp;

  end;

  write('Введите имя файла библиотеки: '); readln(FileName);

  Assign(Library, FileName);

  Rewrite(Library);

  for i:=1 to num do begin

    {генерируем книгу из случайных полей}

    tmp:=random(KINDSNUM)+1;

    book.Kind := CKinds[tmp];

    tmp:=random(AUTHORSNUM)+1;

    book.Author := CAuthors[tmp];

    tmp:=random(NAMESNUM)+1;

    book.Name := CNames[tmp];

    tmp:=random(PUBLICSNUM)+1;

    book.Public := CPublics[tmp];

    book.Year := random(maxyear-minyear)+minyear;

    {записываем получившуюся книгу в файл}

    Write(Library, book);

  end;

  Close(Library);

  writeln('Библиотека создана');

  write('Хотите ли вы просмотреть получившуюся библиотеку? (д/н)'); readln(ask);

  if (ask='y')or(ask='Y')or(ask='д')or(ask='Д') then begin

    Reset(Library);

    writeln;

    writeln('КАТАЛОГ БИБЛИОТЕКИ');

    while not EOF(Library) do begin

      read(Library, book);

      writeln(book.Kind:KINDMAX,'|',book.Author:AUTHORMAX,'|',

              book.Name:NAMEMAX,'|',book.Public:PUBLICMAX,'|',

              book.Year:4);

    end; 

  end;

end.