Наверно самый идиотский набросок, ну как то так
var f: text;
Lastname: string;
Name: string;
Klass: string;
Mark:integer;
n,i,k: integer;
begin
assign(f,filename);
reset(f);
writeln('Ученик:');
k := 0;
readln(f,n);
for i := 1 to n do
begin
readln(Lastname);
readln(Name);
readln(Klass);
readln(Mark);
if (Mark > 4) then {}
begin
if Mark = then
close(f);
readkey;
end.