Проверить программу на правильность. Записи

type stud = record
fam:string;
god:integer;
kurs:byte;
m1,m2,m3: byte;
end;
group= array [1..7] of stud;
var gr:group;
procedure line;
var i:byte;
begin
for i:=1 to 75 do
write('+');
end;
procedure vvod (var gr:group);
var i:byte;
begin
for i:=1 to 7 do
with gr[i] do
begin
readln(fam);
readln(god);
readln(kurs);
readln(m1,m2,m3);
end;
end;
procedure vivod (var gr:group);
var i:byte;
begin
line;
writeln;
write('Фамилия    *|*  '); 
write('Год поступления *|* ');
write('Курс *|* ');
write('Математика *|* ');
write('Информатика *|* ');
write('ОП *|* ');
writeln;
for i:=1 to 7 do
with gr[i] do
begin
line;
writeln;
write(fam,'   *|*  '); 
write(god,'          *|* ');
write(kurs,'     *|* ');
write(m1,'     *|* ');
write(m2,'   *|* ');
write(m3,'  *|* ');
writeln;
end;
line;
writeln;
end;
procedure vibor (var gr:group);
var i:byte;
begin
writeln;
writeln('Отличники');
writeln;
write('Фамилия    *|*  '); 
write('Год поступления *|* ');
write('Курс *|* ');
write('Математика *|* ');
write('Информатика *|* ');
write('ОП *|* ');
writeln;
line;
writeln;
for i:=1 to 7 do
if (gr[i].m1=5) and (gr[i].m2=5)
then
begin
write(gr[i].fam,'  *|*  ');
write(gr[i].god,'  *|*  ');
write(gr[i].kurs,'  *|*  ');
write(gr[i].m1,'  *|*  ');
write(gr[i].m2,'  *|*  ');
write(gr[i].m3,'  *|*  ');
writeln;
line;
writeln;
end;
end;
begin
vvod(gr);
vivod(gr);
vibor(gr);
end.