Ввод данного списка из файла в массив записей

Program Massiv;
type v=record
    FIO:string [20];
    kniga:string [15];
    year:1900..2010;
    shifr:string [5];
    end;
  var zap:array [1..100] of v;
  n,i:byte;
BEGIN
  Write ('Введите количество записей: ');
  readln (n);
  for i:=1 to n do
    with zap[i] do
     begin
       Write ('Введите ФИО не более 20 символов ',i,': ');
       readln (FIO);
       write ('введите название книги ',i,': ');
       readln (kniga);
       write ('введите год ',i,': ');
       readln (year);
       write ('введите шифр ',i,': ');
       readln (shifr);
     end;
    Writeln ('полный список');
    Writeln ('НОМЕР             ФИО         НАЗВАНИЕ     ГОД        ШИФР');
           for i:=1 to n do
             with zap[i] do
                begin
                   write (i);
                   write (FIO:20);
                   write (kniga:15);
                   write (year:10);
                   writeln (shifr:5);
       end;
    Writeln ('поиск книг, поле шифр которых "CC11" и изданных до 1950 года.');
    writeln ('Книги, шифр которых "CC11" ');
    Writeln ('НОМЕР             ФИО         НАЗВАНИЕ     ГОД        ШИФР');
       for i:=1 to n do
         with zap[i] do
            begin
              if shifr = 'CC11' then
              if year < 1950 then
                 begin
                  write (i);
                  write (FIO:20);
                  write (kniga:15);
                  write (year:10);
                  writeln (shifr:5);
                  end;
              end;
END.

type z=record
       FamImeOtc:string[20];
       NZV:string[20];
       Year:1895..2010;
       Shfr:byte;
       end;
     var zap,vrem:array[1..100] of z;
       n,i,j,i_min:byte;
       Min:integer;
        procedure vvod(var zp:array [1..100] of z; var i,n:byte);
         Begin
          Write('Введите количество записей');
          readln(n);
          for i:=1 to n do
           with zap[i] do
          begin
           Write ('Введите ФИО не более 15 символов ',i,': ');
           readln(FamImeOtc);
           Write ('Введите название ',i,': ');
           readln (NZV);
           Write ('Введите год ',i,': ');
           readln (Year);
           Write ('Введите шифр ',i,': ');
           readln (Shfr);
          end;
       end;
        procedure print(var zp:array [1..100] of z;var i,n:byte);
          Begin
           Writeln ('Плный список');
           Writeln ('НОМЕР           ФИО         НАЗВАНИЕ       ГОД     ШИФР');
           for i:=1 to n do
             with zap[i] do
                begin
                   write (i);
                   write (FamImeOtc:25);
                   write (NZV:20);
                   write (Year:10);
                   writeln (Shfr:20);
                end;
          End;
        BEGIN
          vvod (zap,i,n);
          For i:=1 to n-1 do
           with zap[i] do
                          Begin
                            Min:=Year;  i_min:=i;
                                   For j:=i+1 to n do
           with zap[j] do
                                    If Year>Min then
                                             Begin
                                                Min:=Year; i_min:=j
                                             End;
           with zap[i] do
                                   vrem[1]:=zap[i_min];
                                   zap[i_min]:=zap[i];
                                   zap[i]:=vrem[1];
                          End;
           print(zap,i,n);
         END.

USES CRT;         { Подключение стандартного модуля ТР}
     Type
     z = Record      { Описания типа для структуры }
       FamImeOtc:string[20];
       NZV:string[20];
       Year:1895..2010;
       Shfr:byte;
       end;
 
   Var
    F_input, F_out : Text; { Файловые переменные для связи с входным
                               и выходным файлами}
    Spisok,vrem :Array [1..1000] of z; { Описание массива записей}
    Kol_Zap, i : byte; { Число и счетчик записей}
    n,j,i_min:byte;
       Min:integer;
    Zap : z; { Описание одной записи}
    Key : Boolean; { Ключ сортировки}
    Begin
         Assign (F_input, 'D:\Илья\1.txt');
          Reset (F_input); { Открытие файла для чтения}
          i := 0; { Счетчик считанных записей}
       { Ввод данных из текстового файла в массив }
          While not Eof (F_input) Do
             begin        inc (i);
                With Spisok[i] Do { Оператор присоединения}
                 Readln (F_input, FamImeOtc, NZV, Year, Shfr); { Ввод строки: для
текстового файла необходимо указывать каждое вводимое поле записи}
             end;
              Kol_Zap := i; { Число записей в файле}
          For i:=1 to n-1 do
           with Spisok[i] do
                          Begin
                            Min:=Year;  i_min:=i;
                                   For j:=i+1 to n do
           with Spisok[j] do
                                    If Year>Min then
                                             Begin
                                                Min:=Year; i_min:=j
                                             End;
           with Spisok[i] do
                                   vrem[1]:=Spisok[i_min];
                                   Spisok[i_min]:=Spisok[i];
                                   Spisok[i]:=vrem[1];
                          End;    { Конец сортировки}
          { Вывод результатов в файл}
          Assign (F_out, 'COMP.DAT');
          Rewrite (F_out); { Открытие файла для записи}
          { Вывод заголовка для списка}
          Writeln(F_out, ' Упорядоченный список записей');
     Writeln(F_out, 'ФИО Название Год издания Шифр');
             For i := 1 To Kol_Zap Do
               With Spisok[i] do
                   Writeln (F_out, FamImeOtc, NZV, Year, Shfr ); { Вывод записи: для
     текстового файла необходимо указывать каждое выводимое поле записи}
             Close (F_input); Close(F_out); { Закрытие файлов}
       End.