Описать структуру с именем STUDENT - Turbo Pascal (29911)

program pr;
 
type
 student=record 
 number:integer;
 nameson:string[50];
 yearofbirth:integer;
 enter:integer;
end;
marks=record
 phisical:integer;
 math:integer;
 prog:integer;
 history:integer;
end;
var
i,n:integer;
stud:array [1..100] of student; // массив студентов (массив структур student)
ocenki:array [1..100] of marks;
procedure fill();
var i:integer;
f:file of student;
begin
assign(f,'c:\studentsfill.txt');
rewrite(f);
for i:=1 to n do begin
writeln('Введите номер студента');
readln(stud[i].number);
writeln('Введите имя и фамилию студента');
readln(stud[i].nameson);
writeln('Введите год рождения');
readln(stud[i].yearofbirth);
writeln('Введите год поступления');
readln(stud[i].enter);
writeln('Введите оценки по физике');
readln(ocenki[i].phisical);
writeln('Введите оценки по математике');
readln(ocenki[i].math);
writeln('Введите оценки по программированию');
readln(ocenki[i].prog);
writeln('Введите оценки по истории');
readln(ocenki[i].history);
write(f,stud[i]);
end;
close (f);
end;
procedure show();
var i:integer;
f:file of student;
begin
assign(f,'c:\studentsfill.txt');
reset (f);
    while not eof (f) do 
    begin
    inc(i);
        read(f,stud[i]);
        writeln(stud[i].number);
        writeln(stud[i].nameson);
        writeln(stud[i].yearofbirth);
        writeln(stud[i].enter);
        writeln('Физика:',ocenki[i].phisical);
        writeln('Математика:',ocenki[i].math);
        writeln('Программирование:',ocenki[i].prog);
        writeln ('История:',ocenki[i].history);
        writeln;
    end;
 
    close (f);
 
end;
procedure bad(s:student);
var i,j:integer;
begin
for i:=1 to n do
if (ocenki[i].phisical=3) or (ocenki[i].math=3)or (ocenki[i].prog=3) or (ocenki[i].history=3)then 
begin
writeln('Тройка у:');
writeln(stud[i].nameson);
end;
end;
begin
writeln('Введите количество студентов:');
readln(n);
fill();
show();
bad(stud[i+1]);
end.