записи

[Серый777]

Помогите пожалуйста,написать программу, формирующую архив данных по книгам и журналам(записи с вариантами). Общие (для книг и журналов), данные включают: фамилию автора, название книги или статьи в журнале, год издания. Вариантная часть для книг : город, где издана книга, издательство. Вариантная часть для журналов : название журнала, в котором размещена статья, номер журнала. Сначала необходимо создать блок программы который будет формировать архив, а второй блок программы должен осуществлять поиск книг,изданных автором, фамилию которого указывает пользователь.

[Серый777]

сам написал вот код:

program zap;
type
literature=record
fam:string[20];
namebook:string[20];
namestatya:string[20];
god:integer;
case k:integer of
1gorod, made:string[20]);
2namemagazine:string[20];nombmag:integer);
end;
var
avtor:array [1..100] of literature;
i,n,k,s:integer;
familiya:string;
begin
writeln('vvedite kol-vo knig arhiva');
readln(n);
writeln('kniga(1) ili zhyrnal(2)?');
readln(k);
for i:=1 to n do
begin
case k of
1: begin
writeln('vvedite familiu avtora');
readln(avtor[i].fam);
writeln('vvedite nazvanie knigi');
readln(avtor[i].namebook);
writeln('vvedite god izdaniya');
readln(avtor[i].god);
writeln('vvedite gorod');
readln(avtor[i].gorod);
writeln('vvedite izdatelstvo');
readln(avtor[i].made);
end;
2: begin
writeln('vvedite familiu avtora');
readln(avtor[i].fam);
writeln('vvedite nazvanie statyi');
readln(avtor[i].namestatya);
writeln('vvedite god izdaniya');
readln(avtor[i].god);
writeln('vvedite nazvanie zhyrnala');
readln(avtor[i].namemagazine);
writeln('vvedite nomer zhyrnala');
readln(avtor[i].nombmag);
end;
end;
end;
writeln('poisk');
writeln('vvedite familiu avtora');
readln(familiya);
for i:=1 to n do
if avtor[i].fam=familiya then
begin
if k=1 then
writeln(avtor[i].fam,' ',avtor[i].namebook,' ',avtor[i].god,' ',avtor[i].gorod,' ',avtor[i].made);
if k=2 then
writeln(avtor[i].fam,' ',avtor[i].namestatya,' ',avtor[i].god,' ',avtor[i].namemagazine,' ',avtor[i].nombmag);
end
else
writeln('dannyh net');
readln;
end.