Определить, имеется ли книга с названием информатика если да то сообщить фамилию автора и год издания

Type
  book = Record
    autor,name,publish: String;
    year: Word;
  end;
Var
  f: Text;
  s: String;
  x: Array [1..50] of book;
  i,n: Byte;
  t: Word;
  code: Integer;
BEGIN
Write('Введите имя файла (без расширения): ');
Readln(s);
Assign(f,s+'.txt');
{$I-}
Reset(f);
{$I+}
If IOResult=0 Then
begin
  n:=0;
  While not Eof(f) do
  begin
    n:=n+1;
    Readln(f,s); x[n].autor:=s;
    Readln(f,s); x[n].name:=s;
    Readln(f,s); x[n].publish:=s;
    Readln(f,s); Val(s,t,code); x[n].year:=t;
  end;
  For i:=1 to n do
  If x[i].name='Информатика' Then
  Writeln(x[i].autor,' ',x[i].year);
  Close(f);
end
Else
Writeln('Файл не найден');
Readln
END.

Type
  book = Record
    autor,name,publish: String;
    year: Word;
  end;
Var
  f: Text;
  s: String;
  x: Array [1..50] of book;
  i,n: Byte;
  t: Word;
  code: Integer;
BEGIN
Write('Введите имя файла (без расширения): ');
Readln(s);
If FileExists(s+'.txt') Then
begin
  Assign(f,s+'.txt');
  Reset(f);
  n:=0;
  While not Eof(f) do
  begin
    n:=n+1;
    Readln(f,s); x[n].autor:=s;
    Readln(f,s); x[n].name:=s;
    Readln(f,s); x[n].publish:=s;
    Readln(f,s); x[n].year:=StrToInt(s);
  end;
  For i:=1 to n do
  If x[i].name='Информатика' Then
  Writeln(x[i].autor,' ',x[i].year);
  Close(f);
end
Else
Writeln('Файл не найден');
Readln
END.