Program READER;
Uses crt;
Const filename = 'TEXT.DAT';
Var f: Text;
     s: String;
     ex: String;
Begin
ClrScr;
Assign(f, filename);
ReSet(f);
While Not (EoF(f)) do
       Begin
       Readln(f, s);
       Writeln(s);
       End;
Writeln('---Конец файла---',#13#10,'Нажмите любую клавишу');
ReadKey;
ReSet(f);
Write('Какое слово исключить из текста: '); Readln(ex);
Writeln(#13#10);
While Not (EoF(f)) do
       Begin
       Readln(f, s);
       While (Pos(ex, s) > 0) do
             Begin
             Delete(s, Pos(ex,s),Length(ex));
             End;
       Writeln(s);
       End;
Readkey;
Close(f);
End.

Program STUDIK;
Uses CRT;
Const filename = 'STUD.DAT';
Type student = record
                name: String;
                age: Integer;
                End;
Var f: File of student;
     i: Integer;
     a: student;
     c: Char;

Procedure AddStud;
Begin
ClrScr;
Assign(f, filename);
{$I-}
ReSet(f);
{$I+}
If (IOResult <> 0) then ReWrite(f)
                    else Seek(f, FileSize(f));

Write('Фамилия студента: '); Readln(a.name);
Write('Возраст студента: '); Readln(a.age);
Write(f, a);
Writeln('Студент добавлен');
Readkey;
Close(f);
End;

Procedure Print;
Begin
ClrScr;
Assign(f, filename);
{$I-}
ReSet(f);
{$I+}
If (IOResult <> 0) then Writeln('Файл пуст')
                    else While not Eof(f) do
                    Begin
                    Read(f, a);
                    Writeln(a.name,' -- ',a.age);
                    End;
Readkey;
Close(f);
End;

Procedure IncAge;
Var n: LongInt;
Begin
n := 0;
ClrScr;
Assign(f, filename);
{$I-}
ReSet(f);
{$I+}
If (IOResult <> 0) then Writeln('Файл пуст')
                    else While not Eof(f) do
                    Begin
                    n := FilePos(f);
                    Read(f, a);
                    a.age := a.age + 1;
                    Seek(f, n);
                    Write(f, a);
                    End;
Writeln('Возраст увеличен');
ReadKey;
Close(f);
End;

Begin
Repeat
ClrScr;
Writeln('[1] Добавить студента');
Writeln('[2] Вывести список всех студентов');
Writeln('[3] Увеличить возраст всех');
Writeln('------------------------------------');
Writeln('[ESC] Выход',#13#10);
Write('Ваш выбор: ');
c := ReadKey;
Case c of
'1': AddStud;
'2': Print;
'3': IncAge;
End;
Until c = #27;
End.