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

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