проверка программы с записями

uses crt;
type name1=record
           n:string;
           fam:string[20];
           id:string;
end;
str_add1=record
housenum:integer;
street:string[10];
end;
study1=record
str_add:str_add1;
kurs:string;
group:string;
semkol:integer;
end;
subject1=record
sub:array[1..10] of string[10];
ball:array[1..10] of integer;
n:integer;
end;
teach1=record
year:string[4];
subject:subject1;
middle:real;
end;
student1=array [1..25] of record
name:name1;
yearb:string[4];
study:study1;
teach:teach1;
end;
semkol1=array[1..100] of record
sub:array[1..10] of string[10];
ball:array[1..10] of integer;
end;
var
s:student1;
g1:student1;
n,i,j,m1,k:integer;
sub:array[1..10] of string[10];
ball:array[1..10] of integer;
semkol:integer;
procedure enter;
var p:real; begin
writeln('Введите количество студентов');
readln(n);
for i:=1 to n do  begin
with s[i] do begin
with name do begin
write('фамилия '); readln (fam);
write('имя '); readln (n);
write ('идентификационный номер '); readln(id);
end;
write ('год рождения '); readln (yearb);
with study do begin
with str_add do begin
write('курс '); readln (kurs);
write('группа '); readln (group);
write('количество семестров обучения '); readln (semkol);
end;
with teach do begin
write ('год поступления '); readln (year);
with subject do begin
write ('количество предметов '); readln (m1);
for k:=1 to semkol do   begin
writeln ('Результаты ',k,' семестра');
for j:=1 to m1 do begin
write('название '); readln (sub[j]);
write ('Результаты ');
readln (ball[j]);
end;
end; end; end; end;
writeln; end; end; end;
procedure ex;
begin
for j:=1 to m1 do begin
with s[j] do begin
if ball[j]<=3 then begin ball[j]:=0;
with name do begin
writeln (fam);;writeln(n);writeln;
end;end;
with name do begin
write ('количество предметов ');
for k:=1 to semkol do   begin
writeln ('Результаты ',k,' семестра');
for j:=1 to m1 do begin
write('название '); writeln (sub[j]);
write ('Результаты ');
writeln (ball[j]);
end;
writeln; end; end; end;  end; end;
begin
clrscr;
enter;
ex;
end.