Работа с файлами

Program z1; 
var 
f:Text; 
s,a,l,r:String; 
i:integer; 
g:boolean; 
o,k,d,p,x,q:integer; 
begin 
k:=0; 
While i<>4 do begin 
Writeln('Выберите 1, если хотите добавить запись'); 
Writeln('Выберите 2, если хотите вывести список учеников по заданному номеру школы'); 
Writeln('Выберите 3, если хотите вывести кол-во учеников по заданному номеру школы'); 
Writeln('Выберите 4, выход'); 
Readln(i); 
case i of 
1:begin 
Assign (f,'What.txt'); 
Reset (f); 
Append(f); 
Readln(s); 
Writeln(f,s); 
Close(f); 
end; 
2:begin 
Assign (f,'What.txt'); 
Reset (f); 
Readln(x); 
while g<>true do begin 
Read (f,s); 
Readln(f); 
l:=s; 
k:=0; 
While k<3 do begin 
k:=k+1; 
o:=pos(' ',s); 
delete (s,1,o); 
end; 
val(s,d,p); 
If (d=x) then begin 
Writeln(l); 
end; 
g:=SeekEof(f); 
end; 
Close(f); 
g:=false; 
end; 
3:begin 
Assign (f,'What.txt'); 
Reset (f); 
Readln(x); 
while g<>true do begin 
Read (f,r); 
Readln(f); 
k:=0; 
While k<3 do begin 
k:=k+1; 
o:=pos(' ',r); 
delete (r,1,o); 
end; 
val(r,d,p); 
If (d=x) then 
q:=q+1; 
g:=SeekEof(f); 
end; 
Writeln(q); 
q:=0; 
Close(f); 
g:=false; 
end; 
4: begin 
exit; 
end; 
end; 
end; 
end.