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

Program primer;

Var f, g:text;

I, n, k: integer; S, a, dа ta: string; Begin

Assign (f,'F. txt') ;

Assign (g,'G. txt') ;

rewrite (f) ;

Writeln ('Кол-во книг? ') ;

readln (n) ;

for i:=1 to n do begin

writeln ('Фамилия автора, название и год издания книги № ', i,'?') ;

readln (s) ;

writeln (f, s) ; / / в фаил f забиваем данные

end;

close (f) ;

Writeln ('Укажите автора для поиска ') ;

readln (a) ;

Rewrite (g) ;

Reset (f) ;

For i:=1 to 2 do begin

Readln (f, s) ;

if (pos (a, s) 0) then begin / / ищем автора

dа ta:='';

for k:=length (s) downto 1 do begin

if (s[k]=' ') then begin

dа ta:=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