Определить, есть ли среди книг, которые выданы наибольшим тиражом, книги веденного автора

assign(f,'data.txt');
reset(f);
while not eof(f) do
 begin
  readln(f,imya);
  readln(f,nazv);
  readln(f,data_izd);
  readln(f,tirazh);
 end;
close(f);

const CMax = 20; //Здесь можешь изменить размер, больше 20 авторов не влезет.
 
var 
    i : integer;
    imya : array [1..CMax] of string;
    fam : string;
    f : text; 
    flag : boolean;
 
begin
    assign(f,'data.txt');
    reset(f);
    i := 1;
    flag := false;
    while not eof(f) do begin
        readln(f, imya[i]);
        inc(i);
    end;
    close(f);
    writeln('Введите фамилию автора :');
    readln(fam);
    for i := 1 to 20 do
        if imya[i] = fam then begin
            flag := true;
            break;
        end;
    if flag then 
        Writeln('Такая книга есть.')
    else
        Writeln('Книга не найдена.');
end.