Wyszukiwanie w rekordach.

Witam, potrzebuję pomocy z tym oto kodem źródłowym:

program GAMEBASE;

uses
  crt;

type
  gry = record
    nazwa : string[50];
  end;

var
  f : file of Gry;
  {a,b:array  [1..50] of Gry;}
  games : Gry;
  i, d1, x, ilosc : byte;
  esc : char;
  wybor : integer;

  {procedure nowa_baza;
  begin
  assign(f,'gamebase.dat');
  rewrite(f);
  close(f);
  end ;}

procedure nowy_wpis;
begin
  clrscr;
  assign(f, 'gamebase.dat');
  rewrite(f);

  inc(ilosc);
  writeln('Nazwa gry:');
  readln(games.nazwa[ilosc]);

  close(f);
end;

procedure pokaz_wpisy;
begin
  clrscr;
  assign(f, 'gamebase.dat');
  reset(f);
  while not eof(f) do
  begin
    read(f, games);
    writeln;
    writeln('Nazwa gry: ', games.nazwa);
  end;
  writeln('Wcisnij ESC aby zakonczyc');
  esc := readkey;
  readln;
  writeln;
  close(f);
end;

begin
  clrscr;

  repeat
    Writeln('MENU');
    Writeln('1 - nowy wpis');
    Writeln('2 - pokaz wpisy');
    Writeln('0 - zakoncz');
    Writeln(' ');
    Writeln('STATYSTYKI');
    Writeln('W bazie znajduje sie ', ilosc, ' gier');
    Readln(wybor);

    case wybor of
      1 : nowy_wpis;
      2 : pokaz_wpisy;
    end;
  until wybor = 0;
end.

Nie wiem czemu nie wyświetla mi ilości tytułów po wybraniu odpowiedniego polecenia w programie i chciałbym uzyskać pomoc w kwestii wyszukiwarki odpowiednich rekordów, że wpisuje tytuł gry i ten tytuł mi wyskakuje, oraz jak zrobić żebym mógł wprowadzić więcej informacji niż sam tytuł, np. rok wydania, producenta, etc.

A jakie jest odpowiednie polecenie dla wyświetlenia ilości tytułów?

Nie wiem czemu, typ przechowujący tytuł JEDNEJ gry nazywa się gry. I czemu coś co wydaje się tablicą games (sugerując się nazwą), jest właściwie jedną grą.

@TomRiddle, autor tematu nie ma zielonego pojęcia co jest napisano w tym kodzie, przeczytaj pytanie i poszukaj odpowiedzi w kodzie :D
Masz absolutnie słuszną uwagę ale chyba słyszałeś takie powiedzonko: - "nie rzucać perły przed wieprze".

Do autora - wątek powinien się znaleźć w dziale Praca.
Bo jest ewidentnie praca na zaliczenie tematu i dostałeś od kogoś gotowca.
W takich sprawach lepiej nie udawać że się czegoś nie rozumie tylko napisać wprost co i za ile.