Напишите программу, по которой будут введены данные из файла, описанного в предыдущем задании, и выполнена следующая

Program Examen;
Type results = record
Fam: string[15];
Rus: 2..5;
Alg: 2..5;
Phiz: 2..5
End;
Var list: array[1..30] of results;
i: integer; F1, F2: text;
Begin
Assign(F1, '10_a.txt');
Assign(F2, 'Best.txt');
Reset(F1);
Rewrite(F2);
Readln(F1); Readln(F1);
For i:=1 To 30 Do
Readln(F1,list[i].Fam,list[i].Rus,list[i].Alg,list[i].Phiz);
For i:=1 To 30 Do
If (list[i].rus=5) and (list[i].alg=5) and
(list[i].phiz=5)
Then
Begin
Writeln(list[i].fam);
Writeln(F2, list[i].fam)
End;
Close(F1); Close(F2)
End.