const
  BMax = 5;

type
  book=record
    title, author:string;
    year:integer;
  end;

var
  a:array[1..BMax] of book;
  f:text;
  i,j,k,mi:integer;
  inf:boolean;
  ms:string;
  b:book;

begin
  assign(f,'bibliot.txt');
  reset(f);
  for i:=1 to BMax do begin
    readln(f,a[i].author);
    readln(f,a[i].title);
    readln(f,a[i].year);
  end;
  close(f);
  inf:=false;
  for i:=1 to BMax do
    if a[i].title='€­д®а¬ вЁЄ ' then begin
      writeln('Љ­ЁЈ  б ­ §ў ­ЁҐ¬ "€­д®а¬ вЁЄ " Ґбвм');
      writeln('Ђўв®а: ', a[i].author,'  ѓ®¤ Ё§¤ ­Ёп: ', a[i].year);
      inf:=true;
    end;
  if not inf then
    writeln('Љ­ЁЈЁ б ­ §ў ­ЁҐ¬ "€­д®а¬ вЁЄ " ­Ґв');
  k:=BMax;
  i:=1;
  while i<=k do begin
    if a[i].year<1960 then begin
      for j:=i to k-1 do
        a[j]:=a[j+1];
      dec(k);
    end
    else
      inc(i);
  end;
  for i:=1 to k-1 do begin
    mi:=i;
    ms:=a[i].title;
    for j:=i+1 to k do
      if a[j].title<ms then begin
        ms:=a[j].title;
        mi:=j;
      end;
    b:=a[i];
    a[i]:=a[mi];
    a[mi]:=b;
  end;
  assign(f,'bibliot1.txt');
  rewrite(f);
  for i:=1 to k do begin
    writeln(f,a[i].author);
    writeln(f,a[i].title);
    writeln(f,a[i].year);
  end;
  close(f);
end.

ќЈҐЈҐ©вб
€­д®а¬ вЁЄ 
1980
‚лЎҐЈ ««®
ЃЁ®«®ЈЁп
1968
—гЎ ©б
ќЄ®­®¬ЁЄ 
1995
Њг«¤ иҐў
…бвҐбвў®§­ ­ЁҐ
1970
…ўЄ«Ё¤
ѓҐ®¬ҐваЁп
0