Создать файл f, содержащий сведения о книгах. Сведения о каждой из книг – это фамилия автора, название книги и год издания. С помощью другой программы найти все книги данного автора, изданные с 1980 года. Сохранить эту информацию в файле g.

а где его потом искать, что бы посмотреть? или это тоже не предусмотрено?

В файле g

а где этот файл находится?

В папке в паскалем. Путь не указывал.

const n=50;var х: array [1..n] of integer;р: integer;Пусть первые (n-1) элемент массива х упорядочены по неубыванию, а n-я позиция в этом массиве свободна. Требуется вставить новый элемент р в этот массив с сохранением упорядоченности по неубыванию. Для поиска места вставки для элемента р использовать бинарный поиск.

Program primer;Var f,g:text;    I,n,k: integer;        S,a,data: string;    BeginAssign(f,'F.txt');Assign(g,'G.txt');rewrite(f);Writeln('Кол-во книг? ');readln(n);for i:=1 to n do beginwriteln('Фамилия автора, название и год издания книги № ',i,' ?');readln(s);writeln(f,s);  // в фаил f забиваем данныеend;close(f);Writeln('Укажите автора для поиска ');readln(a);Rewrite(g);Reset(f);For i:=1 to 2 do beginReadln(f,s);if (pos(a,s)<>0) then begin  //ищем автораdata:=''; for k:=length(s) downto 1 do begin           if (s[k]=' ') then begin                    data:=data+copy(s,k+1,length(s));        //смотрим дату                   break;                  end;                      end;                 end;if (strtoint(data) >= 1980) then writeln(g,s);  //сравниваем дату end;close(f);close(g);end.ABC Pascal