Задача 15.5. Створити файл info.dat, у якому записана iнформацiя про 30 студентiв: прiзвище з iнiцiалами, рiк народження, кiлькiсть пропускiв за- нять за останнiй мiсяць.

Program info_stud;
Type Info=Record
     Fam:string[20];
     Year:Integer;
     Prop:Integer;
End;
Var Student:Info;
    F:File Of Info;
    i:Integer;
Begin
 {Зв'язуємо файлову змiнну F з файлом info.dat}
 Assign(F,'info.dat');
 {Вiдкриваїмо файл info.dat для запису}
 Rewrite(F);
 {Записуємо у вiдкритий файл iнформацiю про студентiв}
 For i:=1 to 5 Do
 Begin
 WriteLn('Введiть данi про ',i,'-ого студента');
 Write('Прiзвище з iнiцiалами '); ReadLn(Student.Fam);
 Write('Рiк народження '); ReadLn(Student.Year);
 Write('Кiлькiсть пропускiв '); ReadLn(Student.Prop);
 Write(F, Student);
 End;
 {Закриїмо файл info.dat}
 Close(F);
End.

Завдання 15.5. Записати у текстовий файл інформацію про п’ять шкільних підручників (назва, автор, видавництво, рік видання).