На экзаменационном листе содержатся сведения о результатах экзаменов, сданных 30 учениками класса. Ввести эти данные в компьютер

Program exzam;
Uses crt;
Type results = record
       Family: string[15];
       Rus: 2..5;
       Alg: 2..5 ;
       Geom: 2..5;
     End;
Var list:array[1..30] of results;
    i:integer; F1,F2: text;
Begin
    Assign(F1,'vedom.txt');   
            {связывание   F1 с файлом  
                                            vedom.txt}
    Assign(F2,'res.txt'); ’);{связывание  
                            F2 с файлом res.txt}
    Reset(F1); {Открытие файла  
                                      F1 для чтения}
    Rewrite(F2); {Открытие файла  
                                       F2 для записи}
    Readln(F1); Readln(F1); {Пропуск  
                                             двух строк}
   For i:=1 to 30 do
       Readln(F1,list[i]. Family,list[i].Rus,
              list[i].Alg, list[i].Geom); {Ввод  
                                           таблицы}
    Writeln(‘Отличники’);
    For i:=1 to 30  do
       If (list[i].rus=5) and (list[i].alg=5)
            and (list[i].geom=5) Then
          Begin
             Writeln (list[i].family);   
          {Вывод  фамилии на  экран}
             Writeln (F2, list[i].family);  
             {Запись фамилии в файл }
          End;
    Close(F1); Close(F2);
    Readkey
End.