Вывести название книги, которая обладает большей популярностью среди других

program knigi;
Var
a:string;
b:string;
c:string;
 
s1:string;
s2:string;
s3:string;
 
a1:integer;
b1:integer;
c1:integer;
max:integer;
q1:string;
q2:string;
q3:string;
 
t:text;
 
 
 
 
begin
assign(t,'C:\PABCWork.NET\knigi.txt');
reset(t);
readln(t,a);
close(t);
s1:=a;
q1:=a;
delete(s1,1,13);
delete(q1,1,3);
delete(q1,10,17);
 
assign(t,'1.txt');
rewrite(t);
write(t,s1);
close(t);
assign (t,'1.txt');
reset(t);
read(t,a1);
close (t);
writeln (a1);
 
assign(t,'C:\PABCWork.NET\knigi.txt');
reset (t);
readln(t,a);
readln(t,b);
close(t);
s2:=b;
q2:=b;
delete(s2,1,13);
delete(q2,1,3);
delete(q2,10,19);
assign(t,'2.txt');
rewrite(t);
write(t,s2);
close(t);
assign(t,'2.txt');
reset(t);
read(t,b1);
close(t);
writeln(b1);
 
assign(t,'C:\PABCWork.NET\knigi.txt');
reset (t);
readln(t,a);
readln(t,b);
readln(t,c);
close(t);
s3:=c;
q3:=c;
delete(s3,1,13);
delete(q3,1,3);
delete(q3,10,19);
assign(t,'3.txt');
rewrite(t);
write(t,s3);
close(t);
assign(t,'3.txt');
reset(t);
read(t,c1);
close(t);
writeln(c1);
 
if a1 >= b1 then
max := a1
else
max := b1;
 
if c1 > max then
max := c1;
 
if max=a1 then 
writeln (q1);
if max=b1 then 
writeln (q2);
if max=c1 then 
writeln (q3);
 
 
 
end.

var f:text;
    s,kn,pkn:string;
    p,max,pmx:integer;
begin
assign(f,'knigi.txt');//файл в папке с программой
reset(f);
max:=0;
while not seekeof(f) do //seekeof затем что в конце файла могут быть
 begin                  //лишние символы, например пробел или пустая строка
  readln(f,s); //читаем строку
  delete(s,1,pos('.',s)); //удаляем номер с точкой
  kn:=copy(s,1,pos(' ',s)-1);//копируем название книги
  delete(s,1,pos(' ',s));//удаляем его и пробел за ним
  p:=strtoint(s);//остаток строки это популярность
  if p>max then //если она больше макс.
   begin
    max:=p;//запомним ее
    pkn:=kn;//и название книги
   end;
 end;
close(f);
write('Самая популярная книга ',pkn,'  популярность=',max)
end.