Дан файл KAT, содержащий сведения о книгах - Pascal - Ответ 1157140

program Project1;

{$APPTYPE CONSOLE}

const
  MaxSize = 10;

type
  R = record
    FIO: string;
    Title: string;
    Year: integer;
    Price: double;
  end;

procedure ReadRec(var f: text; var Rec: R);
begin
  with Rec do
  begin
    readln(f, FIO);
    readln(f, Title);
    readln(f, Year);
    readln(f, Price);
  end;
end;
procedure WriteRec(const Rec: R);
begin
  with Rec do
    writeln(FIO: 20, Title:20, Year:8, Price:8 :2);
end;

procedure Sort(var ar: array of R; n: integer);
var
  i, j, k: integer;
  Temp: R;
begin
    For i := 1 To Pred(n) do
      Begin
        k := i; Temp := ar[i - 1];
        For j := Succ(i) To n Do
          If Temp.Title > ar[j - 1].Title Then
            Begin
              k := j; Temp := ar[j - 1]
            End;
        ar[k - 1] := ar[i - 1];
        ar[i - 1] := Temp
      End;
end;

var
  f: text;
  arr: array[1 .. MaxSize] of R;
  MyRec: R;
  i, n, Yr: integer;
  found: boolean;

begin
  writeln('Year = '); readln(Yr);

  assign(f, 'KAT');
  reset(f);

  n := 0;
  while not eof(f) do
  begin
    ReadRec(f, MyRec);
    if MyRec.Year = Yr then
    begin
      inc(n);
      arr[n] := MyRec;
    end;
  end;
  close(f);

  if n > 1 then
    sort(arr, n);

  if n > 0 then
  begin
    for i := 1 to n do WriteRec(arr[i]);
    readln;
  end
  else
    writeln('no matches');
    readln;
end.