В чем ошибка. Программа должна считывать из файла информацию и выводить на экран тех у кого по линейной алгебре 3

uses crt;
label 1,2;
type 
ecxam1sem=record
History:byte;
Fizika:byte;
Diskretnyamatematika:byte;
Matanaliz:byte;
end;
ZAO1sem=record
Linal:byte;
Inf:byte;
end;
Zach1sem=record
Inyaz:char;
OKKiDO:char;
Kyltorologia:char;
Vvedenie:char;
Fizra:char;
end;
Svodnayvedomost1sem=record
Nomer:byte;
FIO:string;
pol:char;
Ecxam:ecxam1sem;
Zao:ZAO1sem;
Zachet:Zach1sem;
end;
gruppa=array [1..32] of Svodnayvedomost1sem;
var a:gruppa;
filename:string;
f,f1:text;
n,i,m,m1,s:integer;
c:char;
begin
assign(f,'12.txt');
readln(s);
if s=1 then goto 1;
if s=2 then goto 2;
1:rewrite(f);
for i:=1 to 32 do 
begin
with a[i] do  
begin
write('f.i.o - '); readln(fio);
write(f,'f.i.o - ');write(f,fio,' ');
write('Пол - ');readln(pol);
write(f,'Пол - ');writeln(f,pol,' ');
with Ecxam do
begin
writeln('История - ');readln(History);
write(f,'История - ');writeln(f,history);
writeln('Физика - ');readln(Fizika);
write(f,'Физика - ');writeln(f,fizika);
writeln('Дискретная математика - ');readln(Diskretnyamatematika);
write(f,'Дискретная математика - ');writeln(f,Diskretnyamatematika);
writeln ('Мата.анализ - ');readln (Matanaliz);
write(f,'Мата.анализ - ');writeln(f,matanaliz);
end;
with ZAO do 
begin
write ('Линейная алгебра - ');readln (Linal);
write (f,'Линейная алгебра - ');writeln(f,linal);
write ('Информатика - ');readln (Inf);
write (f,'Информатика - ');writeln(f,inf);
end;
with Zachet do
begin
write ('Иностранный - ');readln (Inyaz);
write (f,'Иностранный - ');writeln(f,inyaz);
write ('ОККиДО - ');readln (OKKiDO);
write (f,'ОККиДО - ');writeln (f,OKKiDO);
write ('Культорология - ');readln (Kyltorologia);
write (f,'Культорология - ');writeln (f,Kyltorologia);
write ('Введение в профиль - ');readln (Vvedenie);
write (f,'Введение в профиль - ');writeln (f,Vvedenie);
write ('Физра - ');readln (Fizra);
write (f,'Физра - ');writeln (f,Fizra);
writeln(f,'-------------');
end;
end;
end;
assign (f,'12.txt');
2:reset(f);
for i:=1 to 32 do
with a[i] do
if (ZAO.linal)=3 then
begin
writeln(a[i].FIO);
writeln(f,FIO);
close(f);
Close(f);
readln;
readln;
end;
end.