Определить количество студентов, сдавших экзамен на 5 и 4

Program RGR1.2;
Type exRecord =     Record
n: byte;
surname: string;
group: integer;
subject1: integer;
subject2: integer;
subject3: integer;
end;
Var stud,stud2: file of exRecord;
rec: exRecord;
i,k:byte;
begin
assign(stud, 'STUD.dat');
rewrite(stod);
for i:=1 to 4 do
with rec do
begin
n:=i;
writeln('Input surname ', i);
readln(surname);
writeln('Input group list number ', i);
readln(group);
writeln('Input subject1 list number ', i);
readln(subject1);
writeln('Input subject2 list number ', i);
readln(subject2);
writeln('Input subject3 list number ', i);
readln(subject3);
write(stud,rec);
end;
begin
assign(stud2, 'STUD2.dat');
rewrite(stud2);
for i:=1 to 3 do
with rec do
begin
n:=i;
writeln('Input surname ', i);
readln(surname);
writeln('Input group list number ', i);
readln(group);
writeln('Input subject1 list number ', i);
readln(subject1);
writeln('Input subject2 list number ', i);
readln(subject2);
writeln('Input subject3 list number ', i);
readln(subject3);
write(stud2,rec);
end;
begin
reset (stud);
while not eof (stud) do
begin
k:=filesize(stud2);
read (stud,rec);
rec.n:=k+1;
write(stud2,rec)
end;
close(stud);
erase (stud);
close(stud2);
rename(stud2,'stud.dat');
reset (stud2);
seek(stud2,0);
writeln;
while not EOF(stud2) do
begin
read(stud2,rec);
if (rec.subject1>=4) and (rec.subject2>=4)and(rec.subject3>=4)  then
writeln(rec.n,' ',rec.surname,' ',rec.group,' ',rec.subject1,' ',rec.subject2,' ',rec.subject3);
end;
readln;
end;
end;
end.

Type exRecord = Record
n: byte;
surname: ShortString; // Вот такую строку типизированный файл умеет хранить
group: integer;
subject1: integer;
subject2: integer;
subject3: integer;
end;

assign(stud, 'STUD.dat');
rewrite(stud); // <--- тут было stod