Проверьте процедуру t

const n=3;
type
 student = record
 name: string[10];
 group: integer;
 marks: array[1..3] of 2..5;
 end;
 myfile = file of student;
var a:student;  i,j:integer;
procedure vvod(var f:myfile);
 begin     writeln('vvedite ',n,' zapisei');
 for i:=1 to n do
 begin
 writeln('zapis: ',i);
 write('vvedite ima '); readln(a.name);
 write('vvedite grupp ot 1 do 3 '); readln(a.group);
 write('vvedite ozenki '); for j:=1 to 3 do readln(a.marks[j]);
 write(f,a);
 end;
end;
procedure t(var f:myfile);
var j:integer;    b,c,d:boolean;
begin
seek(f,0);   b:=true; c:=true; d:=true;
while not eof(f) do
 begin
 for  j:=1 to 3 do
 if a.marks[j]=3 then
   begin
    if a.group=1 then b:=false else
    if a.group=2 then c:=false else
    d:=false;
   end;
 end;
 if b then write('1 ');
 if c then write('2 ');
 if d then write('3 ');
 end;
var f:myfile;
begin
assignfile(f,'h:\2.txt');
rewrite(f); vvod(f);
reset(f);
t(f);
readln; closefile(f);
end.

procedure t(var f:myfile);
var j:integer; pr:boolean;
begin
seek(f,0);
while not eof(f) do
begin
read(f,a);
pr:=true;
for j:=1 to 3 do
if (a.marks[j] in [2,3]) then begin pr:=false;break;end;
if pr then writeln('Группа- ',filepos(f));
end;
end;

if pr then writeln('Группа- ',filepos(f));

if pr then writeln('Группа- ',A.GROUP);

procedure t(var f:myfile);
var j:integer; pr:boolean;
begin
seek(f,0);
while not eof(f) do
begin
[COLOR="Red"]read(f,a);[/COLOR]
pr:=true;
for j:=1 to 3 do
if (a.marks[j] in [2,3]) then begin pr:=false;break;end;
if pr then writeln('Группа- ',A.GROUP);
end;
end;