Подправить программу

program biblioteka;
uses crt;
type
 typePubl=(Book,Journal,Newspaper); 
 Litter=record
   title : string[50];
   Author : string[50];
          
       case V: typePubl of {начало вариантной части}
       Book : (YearB : integer);
       Journal : (Num : 1..12;
                  YearJ : 1900..2000);
       Newspaper : (Day : 1..31;
                   Month : 1..12;
                   YearN : integer);
   
 
end;
Const              Count=10;
Var
   Katalog : array[1..count] of litter;
   NumArray : 1..count;
   YesLitter : Boolean;
   Vybor : byte;
   edition : TypePubl;
   countFind : integer;
  {Процедура ввода данных о литературе}
  Procedure InputData;
   Begin
   writeln;
   writeln('Введите данные о литературе',NumArray,':');
   write('введите число, указывающее вид издания:');
   write('1-книга,2-журнал,3-газета :');
   readln(Vybor);
   case Vybor of
   1 : Katalog[NumArray].v:=Book;
   2 : Katalog[NumArray].v:=Journal;
   3 : Katalog[NumArray].v:=Newspaper;
   end;
   with Katalog[NumArray] do  begin
        write(' фамилия автора?');
        readln(Author);
        write(' Название?');
        readln(Title);
       {Ввод данных в вариантную часть}
             Case v of
              Book:Begin
                   write(' Номер?');
                   readln(Num);
                   writeln(' Год издания?');
                   readln(YearJ);
                   end;
              Newspaper:begin
                        write(' Дата издания: День?');
                        readln(Day);
                        write(' Месяц?');
                        readln(Month);
                        write(' Год?');
                        readln(YearN);
                        end;
      end;          end;
  End;
  {Процедура ввода данных}
  procedure WriteData;
  begin
   writeln;
  Writeln(' литература N', num_array);
  with Katalog[NumArray] do
  begin
       writeln(' Название:',Title);
       writeln(' Фамилия автора:',Author);
       case v of {ввод вариантной части записи}
       Book : writeln(' Год издания:',YearB);
     Journal:begin
             writeln(' Номер:',Num);
             writeln(' Год издания:',YearJ);
             end;
     Newspaper: writeln(' Дата издания: День:',Day,' Месяц:',Month,' Год:',YearN);
       end;
      end;
     End;
     {Процедура поиска лимтературы по типу издания}
     Procedure FindLitter;
     Begin
      writeln(' Поиск литературы по типу издания:');
      writeln;
      write(' 1-книга,2-журнал,3-газета:');
      readln(Vybor);
      
 
      
      case Vybor of          {Задать тип издания}
        1 : Edition:=Book;
        2 : Edition:=Journal;
        3 : Edition:=Newspaper;
     end;
      yesLitter:=False; {Не найден ни один экземпляр издания}
      CountFind:=0;
      for NumArray:=1 to count do
      if katalog[NumArray].v=edition
      then
       begin
         YesLitter:=True; {есть такое издание}
         CountFind:=CountFind+1;
         writreData;
       end;
      if not YesLitter
        Then
          writeln(' В библиотеке нет такой литературы')
          else
             write(' Всего в библиотеке',CountFind,'таких изданий');
          End;
          Begin          {Основная програма}
          Clrscr;
          for NumArray:=1 to Count do
          inputData;  {Процедура ввода данных}
        writeln;
        FindLitter;   {поиск литературы}
End.