По выбору книги в запросе выдать сообщение о наличии книги, автору, названию

Program zad7;
var a: integer;
 
 
      input,output:text;
Begin
  Assign (input,'is1129-1.in');
  Reset (input);
  Readln (input,a);
  Close(input);
  Assign(output,'is1129-1.out');
  Rewrite(output);
  if (a=1) then
  writeln(output,'1 À.Ïóøêèí Êàïèòàíñêàÿ äî÷ü');
  is(a=w) then
  writeln
        ....
 
       Close(output);
End.
 
[size="1"][color="grey"][I]Добавлено через 5 минут[/I][/color][/size]
Блин, походу меня никто не читает... сам с собой тут переписываюсь((
 
[size="1"][color="grey"][I]Добавлено через 14 минут[/I][/color][/size]
Поздравьте меня! я сделал  3 задачку:
Листинг программы:
Program zad7;
var a: integer;
 
 
      input,output:text;
Begin
  Assign (input,'is1129-1.in');
  Reset (input);
  Readln (input,a);
  Close(input);
  Assign(output,'is1129-1.out');
  Rewrite(output);
  if (a=1) then
  writeln(output,'1 À.Ïóøêèí Êàïèòàíñêàÿ äî÷ü');
  if (a=2) then
  writeln(output,'1 Å.Îíåãèí Ïèñüìî Òàòüÿíå');
  if (a=3) then
  writeln(output,'1 Ô.Äîñòîåâñêèé Äâîéíèê');
  if (a=4) then
  writeln(output,'1 À.Ôåò Óñàäüáà');
  if (a=5) then
  writeln(output,'1 Ñ.Åñåíèí Òåëåö');
  if (a=6) then
  writeln(output,'1 À.Îñòðîâñêèé Áåäíàÿ íåâåñòà');
  if (a=7) then
  writeln (output,'1 Ñ.Ìàðøàê Õîðîøèé äåíü');
  if (a=8) then
  writeln (output,'1 Í.Íîñîâ Áîáèê â ãîñòÿõ ó Áàðáîñà');
  if (a=9) then
  writeln (output,'1 Ì.Öâåòàåâà Âå÷åðíèé àëüáîì');
  if (a=10) then
  writeln (output,'0 Ë.Òîëñòîé Ðîäèíà');
         Close(output);
End.