Значения слова рефлексия..
аж быстрее
​

это типа обращение объекта на самого себя и на свои дейстия

Рефлексия(от слова рефлекс)

Рефлекс-реакция на что либо, вырабатываемая некоторое время

1. программа для создания файла // pascalabc.net 3.1, сборка 1239 от 08.05.2016 type   tbook=record       author: string[30];       naim: string[50];       pages: integer;       godizd: integer       end; begin   var f: file of tbook;   rewrite(f,'books.dat');   writeln('ввод данных по книгам');   var s1,s2: string;   var i1,i2: integer;   var book: tbook;   repeat       s1: =readlnstring('автор или * для окончания ввода: ');       if s1< > '*' then begin           s2: =readlnstring('название книги: ');           i1: =readlninteger('количество страниц: ');           i2: =readlninteger('год издания: ');           (book.author,book.naim,book.pages,book.godizd): =(s1,s2,i1,i2);           write(f,book)           end   until s1='*';   writeln('*** ввод завершен ***');   f.close end. тестовое решение ввод данных по книгам автор или * для окончания ввода: жюль верн название книги: 80 тысяч километров под водой количество страниц: 573 год издания: 1951 автор или * для окончания ввода: сергей лукьяненко название книги: дозор количество страниц: 934 год издания: 2004 автор или * для окончания ввода: жюль верн название книги: властелин мира количество страниц: 104 год издания: 2011 автор или * для окончания ввода: * *** ввод завершен *** 2. программа для выборки // pascalabc.net 3.1, сборка 1239 от 08.05.2016 type   tbook=record       author: string[30];       naim: string[50];       pages: integer;       godizd: integer       end; begin   var f: file of tbook;   reset(f,'books.dat');   var s: =readlnstring('автор книги: ');   var y: =readinteger('год издания, не ранее: ');   var k: =0;   var book: tbook;   while not f.eof do begin       read(f,book);       if (book.author=s) and (book.godizd> =y) then begin           writeln(book);           inc(k)           end;   end;   if k=0 then writeln('таких книг не найдено');   f.close end. тестовое решение автор книги: жюль верн год издания, не ранее: 2005 (жюль верн,властелин мира,104,2011)