Записи и поиск в них

        Program Knigi;
        Uses
          Crt;
        Type
          Progr=Record
            name:string[50];
            author:string[50];
            year:integer;
           end;
        Var
 
          M:Array [1..100] of Progr;
          n:1..10;
          name:string;
          Flag:boolean;
          x:integer;
          q:integer;
          
          
        Procedure VvodZap;
        Begin
          Writeln('Vvedite dannie o ',n,' knige:');
          With M[n] do
           begin
            Write('Nazvanie knigi? ');
            Readln(name);
            Writeln('Avtor?');
            Readln(author);
            Write('God izdania? ');
            Readln(year);
            Writeln;
           end;
        End;
        
        
        Procedure WriteZap(Num:integer);
        Begin
         Writeln('Kniga N ',num);
         With M[n] do
          begin
           Writeln('Nazvanie :',name);
           Writeln('Familia avtora :',author);
           Writeln('God :',year);
 
          end;
        End;
        
        
        Begin
          ClrScr;
          Writeln('Vvedite kol-vo knig ');
          Readln(x);
          For n:=1 to x do
            VvodZap;
          Writeln;
          Writeln('Poisk knigi po nazvaniy');
          Writeln('---------------------------------');
          Write('Vvedite nazvanie:');
          Readln(name);
          Flag:=false;
          For n:=1 to 10 do
 
           If M[n].name=name
 
            Then
             begin
              WriteZap(n);
              Flag:=True;
             end;
          If not flag
           Then
            Write('Net takix knig');
         ReadLn;
        End.

if Pos(name, M[n].name)>0 then