База данных "Библиотека": Осуществить поиск книги по названию - Pascal

type
    TBook = record
        name, author: String;
        year, count: Word;
        cost: Single;
    end;
    TFile = File Of TBook;
 
procedure AddToFile(var f: TFile);
var
    i, n: Byte;
    temp: TBook;
begin
    {$I-}
    Reset(f);
    {$I+}
    if (IoResult <> 0)
    then
        ReWrite(f);
    Write('How much? '); ReadLn(n);
    for i := 1 to n do
    begin
        with temp do
        begin
            WriteLn;
            Write('Book name: '); ReadLn(name);
            Write('Author: '); ReadLn(author);
            Write('Publish year: '); ReadLn(year);
            Write('Number of copies: '); ReadLn(count);
            Write('Cost per one book: '); ReadLn(cost);
        end;
        Write(f, temp);
    end;
    Close(f);
end;
 
procedure FindInFile(var f: TFile);
var
    s: String;
    temp: TBook;
    isFound: Boolean;
begin
    {$I-}
    Reset(f);
    {$I+}
    if (IoResult <> 0)
    then
    begin
        WriteLn('File not exist! Please, put some info before search');
        Exit;
    end;
    Write('Book title for search? '); ReadLn(s);
    isFound := False;
    while (Not EoF(f)) do
    begin
        Read(f, temp);
        with temp do
            if (Pos(s, name) > 0)
            then
            begin
                isFound := True;
                WriteLn(name);
                WriteLn(#9, author);
                WriteLn(#9, year, ' y.');
                WriteLn(#9, count, ' p.');
                WriteLn(#9, cost:0:2, ' r.');
                WriteLn('------------------------------------------');
            end;
    end;
    Close(f);
    if (Not isFound)
    then
        WriteLn('Not found any!');
end;
 
function ShowMenu(): Byte;
var
    Result: Byte;
begin
    repeat
        WriteLn('1. Add book.');
        WriteLn('2. Search by title.');
        WriteLn('3. Exit.');
        ReadLn(Result);
    until (Result in [1..3]);
    ShowMenu := Result;
end;
 
var
    f: TFile;
    ans: Byte;
begin
    Assign(f, 'f.dat');
    repeat
        ans := ShowMenu();
        case ans of
            1: AddToFile(f);
            2: FindInFile(f);
        end;
    until (ans = 3);
end.