Задача 15.6. Використовуючи файл info.dat, створений програмою Info_Stud, вивести на друк список тих студентiв, якi мають бiльше 12 пропускiв занять. Пiсля цього файл Info.dat переiменувати у файл NewInfo.dat.

Program OutStud;
Type Info=Record
     Fam:String[20];
     Year:Integer;
     Prop:Integer;
End;
Var Student:Info;
    F:File Of Info;
    S:Text;
Begin
 {Зв'язуємо файлову змiнну F з файлом info.dat, а файлову
     змiнну S з принтером}
 Assign(F,'info.dat');
 Assign(S,'PRN');
 {Вiдкриїмо файл info.dat для читання, а файл виводу
     PRN - для друку}
 Reset(F);
 Rewrite(S);
 {Читаємо з файла info.dat данi про студентiв i друкуємо тих
     у кого бiльше 12 пропускiв}
 while not Eof(F) do
 begin
        Read (F, Student);
 if Student.Prop>12 then Writeln({S,} Student.Fam);{Якщо
 нема прiнтера}
 {if Student.Prop>12 then Writeln(S, Student.Fam);} {Якщо є
 прiнтер}
end;
 {Закриваємо файли info.dat i PRN}
 Close(F); Close(S);
 {Пeреiменовуємо файл info.dat на newinfo.dat}
 Assign(F,'info.dat'); {Rename(F, 'newinfo.dat');}
 Close(F);
End. 

Завдання 15.6. Використовуючи дані записані у текстовий файл при розв’язуванні завдання 15.5 вивести на екран підручники надруковані раніше 1998 року.