Найти название книг заданного автора, изданные с 1960 по 1980 годы

type
   index=record
      L:char;
      P:integer;
    end;
 
var
  idx:array[1..1000] of index;
  ti:index;
  f:text;
  s:array [0..50] of string;
  t,a:string;
  i,n,j,m,y:integer;
  b:boolean;
 
procedure split(delimeter:string;s:string;var sr:array of string;var count:integer);
var
  i:integer;
  t:string;
procedure additem;
begin
 if t<>'' then begin
  inc(count);
  sr[count-1]:=t;
  t:='';
 end;
end;
begin
  count:=0;t:='';
  for i:=1 to length(s) do
    if pos(s[i],delimeter)=0 then t:=t+s[i] else additem;
    additem;
end;
 
function str2int(s:string):integer;
var
  c,r:integer;
begin
  Val(s,r,c);
  str2int:=r;
end;
 
procedure printNline(var vf:text;n:integer);
var
  t:string;
begin
  reset(vf);
  for n:=1 to n do readln(vf,t);
  writeln(t);
  close(vf);
end;
 
begin
  assign(f,'books.txt');
  reset(f);
  i:=0;
  b:=false;
  write('Введите фамилию автора:');readln(a);
  writeln('Список книг автора "',a,'" за период с 1960 по 1980гг:');
  while not eof(f) do begin
    readln(f,t);
    m:=m+1;
    split(' ',t,s,n);
    idx[m].L:=s[0][1];
    idx[m].P:=m;
     y:=str2int(s[n-1]);
     if (a=s[0]) and ((y>=1960) and (y<=1980)) then begin writeln(t);b:=true;end;
  end;
  close(f);
    if not (b) then writeln('Ничего не найдено:');
  readln;
  for i:=1 to m-1 do
    for j:=i to m do
      if idx[i].L>idx[j].L then begin
        ti:=idx[i];idx[i]:=idx[j];idx[j]:=ti;
      end;
  writeln('Список книг, упорядоченный по первой букве:');
  j:=0;
  for i:=1 to m do begin
    j:=j+1;
    if j=23 then begin writeln('Нажмите "Enter" для продолжения...');j:=1;readln;end;
    printNline(f,idx[i].P);
  end;
  readln;
end.

type
  index = record
    L: char;
    P: integer;
  end;
  arrstr = array [0..50] of string;
 
var
  idx: array[1..1000] of index;
  ti: index;
  f: text;
  s: arrstr;
  t, a: string;
  i, n, j, m, y: integer;
  b: boolean;
 
procedure split(delimeter: string; s: string; var sr: arrstr; var count: integer);
var
  i: integer;
  t: string;
  procedure additem;
  begin
    if t <> '' then begin
      inc(count);
      sr[count - 1] := t;
      t := '';
    end;
  end;
 
begin
  count := 0;t := '';
  for i := 1 to length(s) do
    if pos(s[i], delimeter) = 0 then t := t + s[i] else additem;
  additem;
end;
 
function str2int(s: string): integer;
var
  c, r: integer;
begin
  Val(s, r, c);
  str2int := r;
end;
 
procedure printNline(var vf: text; n: integer);
var
  t: string;
begin
  reset(vf);
  for n := 1 to n do readln(vf, t);
  writeln(t);
  close(vf);
end;
 
begin
  assign(f, 'books.txt');
  reset(f);
  i := 0;
  b := false;
  write('Введите фамилию автора:');readln(a);
  writeln('Список книг автора "', a, '" за период с 1960 по 1980гг:');
  while not eof(f) do 
  begin
    readln(f, t);
    m := m + 1;
    split(' ', t, s, n);
    idx[m].L := s[0][1];
    idx[m].P := m;
    y := str2int(s[n - 1]);
    if (a = s[0]) and ((y >= 1960) and (y <= 1980)) then begin writeln(t);b := true; end;
  end;
  close(f);
  if not (b) then writeln('Ничего не найдено:');
  readln;
  for i := 1 to m - 1 do
    for j := i to m do
      if idx[i].L > idx[j].L then begin
        ti := idx[i];idx[i] := idx[j];idx[j] := ti;
      end;
  writeln('Список книг, упорядоченный по первой букве:');
  j := 0;
  for i := 1 to m do 
  begin
    j := j + 1;
    if j = 23 then begin writeln('Нажмите "Enter" для продолжения...');j := 1;readln; end;
    printNline(f, idx[i].P);
  end;
  readln;
end.