Составить программу на языке программирования "Paskal".

Вот тебе список ЯП на букву P из википедии, твоего нет:

P#
PARI/GP
Pascal - ISO 7185
Pawn
PCASTL
PCF
PEARL
PeopleCode
Perl
PDL
PHP
Phrogram
Pico
Pict
Pike
PIKT
PILOT
Pizza
PL-11
PL/0
PL/B
PL/C
PL/I - ISO 6160
PL/M
PL/P
PL/SQL
PL360
PLANC
Plankalkül
PLEX
PLEXIL
Plus
POP-11
PostScript
PortablE
Powerhouse
PowerBuilder - 4GL GUI appl. generator from Sybase
PPL
Processing
Processing.js
Prograph
PROIV
Prolog
Visual Prolog
Promela
PROTEL
ProvideX
Pro*C
Pure
Python

Ну составляй. Кто не дает?
Или может ты хочешь чтобы кто то сделал за тебя твою работу?

Пиши на почту, разберемся

Не Paskal, а Pascal
Самый простой вариан (дорабатывай уже сам) :
type
bible = record
fameli: string[10];
nazv: string[20];
god: integer;
end;
var
f: file of bible;
bibl: bible;
fl: byte;
avtor: string[10];

Begin
assign (f, 'data.dat');
rewrite(f);
repeat
write('Введите фамилию автора: '); readln(bibl.fameli);
write('Введите название книги: '); readln(bibl.nazv);
write('год выпуска: '); readln(bibl.god);
writeln;
write(f, bibl);
writeln;
write('Чтобы продолжить ввод введите 1: '); readln(fl);
until fl<>1;
close(f);
reset(f);
write('Введите имя автора: '); read(avtor);
while not eof(f) do
begin
read(f,bibl);
if (bibl.fameli = avtor) and (bibl.god >= 1990) then
begin
write(bibl.fameli, ' ');
write(bibl.nazv, ' ');
writeln(bibl.god);
end;
end;
writeln;
close(f);
reset(f);
while not eof(f) do
begin
read(f,bibl);
if bibl.nazv = 'информатика' then
begin
write(bibl.fameli, ' ');
write(bibl.nazv, ' ');
writeln(bibl.god);
end;
end;
close(f);
end.