01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Исползования типа Записи / BIBLIOTE

PROGRAM BIBLIOTEKA;
USES CRT;
TYPE
KNIGA=RECORD
NAZVANIE : STRING[50];
AVTOR : STRING[30];
GOD : INTEGER;
END;
VAR
F:FILE OF KNIGA;
I:INTEGER;
KN : ARRAY[0..50] OF KNIGA;
BEGIN
CLRSCR;
WRITELN(' „ЋЊЂЌџџ Ѓ€Ѓ‹€Ћ’…ЉЂ.');
WRITELN('‡ЂЏЋ‹Ќ€Њ Ѓ€Ѓ‹€Ћ’…Љ“ ЉЌ€ѓЂЊ€.');
ASSIGN(F,'BIBLIOTEKA.DAT');
REWRITE(F);
I:=0;
WHILE (KN[I].NAZVANIE)<>'‘’ЋЏ' DO
BEGIN
I:=I+1;
WRITELN('ЉЂЉ ЌЂ‡›‚Ђ…’‘џ ',I:2,'-џ ЉЌ€ѓЂ ?');
READLN(KN[I].NAZVANIE);
IF (KN[I].NAZVANIE)<>'‘’ЋЏ' THEN BEGIN
WRITELN('Љ’Ћ Ђ‚’Ћђ ќ’Ћ‰ ЉЌ€ѓ€ ?');
READLN(KN[I].AVTOR);
WRITELN('ЉЂЉЋ‰ ѓЋ„ €‡„ЂЌ€џ ќ’Ћ‰ ЉЌ€ѓ€ ?');
READLN(KN[I].GOD);
WRITE(F,KN[I]);
END; END;
CLOSE(F);
WRITELN('—’ЋЃ› “‡ЌЂ’њ, ЉЂЉ€… ЉЌ€ѓ€ €Њ…ћ’ ѓЋ„ €‡„ЂЌ€џ ‘’Ђђ… 1990-Ј® ѓЋ„Ђ,');
WRITELN;
WRITELN(' ЌЂ†Њ€’… "ENTER"');
READLN;
RESET(F);
I:=0; WRITELN('ЉЌ€ѓ€ Ѓ€Ѓ‹€Ћ’…Љ€, ѓЋ„ €‡„ЂЌ€џ ЉЋ’Ћђ›• ‘’Ђђ… 1990-Ј® ѓЋ„Ђ :');
WRITELN;
WHILE NOT EOF(F) DO
BEGIN
READ(F,KN[I]);
I:=I+1;
IF (KN[I].GOD)>1990
THEN
BEGIN
WRITELN(' ЌЂ‡‚ЂЌ€… ЉЌ€ѓ€ : ',KN[I].NAZVANIE);
WRITELN(' Ђ‚’Ћђ ЉЌ€ѓ€ : ',KN[I].AVTOR);
WRITELN(' ѓЋ„ €‡„ЂЌ€џ : ',KN[I].GOD);
WRITELN;
END; END;
CLOSE(F);
WRITELN(' ЉЋЌ…– ЏђЋѓђЂЊЊ› !');
WRITELN(' ‘ЏЂ‘€ЃЋ ‡Ђ ‚Ќ€ЊЂЌ€… !');
READLN;
END.