Сведения о выдаче экземпляра журнала читателю состоят из названия журнала, номера и фамилии читателя - Turbo Pascal

var
  f: Text;
  nam, fio, s: String;
  num, n, v: Integer;
begin
  Assign(f,'d:\register.txt');
  repeat
  WriteLn('1 - выдачи по названию');
  WriteLn('2 - количество выдач');
  WriteLn('0 - выход');
  ReadLn(v);
  case v of 
  1:
    begin
      Write('Название: '); ReadLn(s);
      Reset(f);
      while not EoF(f) do begin
        ReadLn(f,nam); ReadLn(f,num); ReadLn(f,fio);
        if s=nam then WriteLn(num,#9,fio);
      end;
    end;
  2:
    begin
      Write('Название: '); ReadLn(s);
      Write('Номер: '); ReadLn(n);
      Reset(f); k:=0;
      while not EoF(f) do begin
        ReadLn(f,nam); ReadLn(f,num); ReadLn(f,fio);
        if (s=nam) and (n=num) then Inc(k);
      end;
      WriteLn('Выдач: 'k);
    end;
  end;
  until v=0;
  Close(f);
end.