Пример последовательной обработки файла

Задача. Вывести на экран сведения о неуспевающих студентах из файла Vedom. Файл - ведомость успеваемости студентов 1 курса. Данные об одном студенте имеют структуру вида: Фамилия, Имя, Отчество, номер зачетки, оценки по 5 предметам.

Program Count_2;
Const
M=5;
Dl=10;
Type
Stud = Record
Fam, Im, Ot : String[Dl];
Numz : LongInt;
Otm : Array[1..M] Of Integer;
End;
Var
Vedom : File Of Stud;
FilName : String;{имя набора данных}
A : Stud;
i,j,kdv,K2 : Integer;
Begin
Writeln(’Введите имя набора данных’);
Readln(FilName);
Assign(Vedom,FilName);
Reset (Vedom); {открытие файла, 1-я запись - в буфере}
kdv := 0;
I := 0;
Writeln(’Список фамилий и номеров зачеток неуспевающих студентов’);
While Not Eof(Vedom) Do
Begin
K2 := 0;
Read(Vedom,A);
I := i+1;
With A Do
Begin
For j := 1 To M Do
If Otm[j] < 3 Then
K2 := K2+1;
If K2 > 0 Then
Begin
kdv := kdv+1;
Writeln(Fam:15,Numz:8);
End;
End;{Whith}
End;{While}
Writeln(’Проверено ’,i,’ студентов.’);
Writeln(’Из них неуспевающих ’,kdv,’ человек’);
WriteLn(’Нажмите Enter’);
Readln;
End.