Записи с вариантами

[megabobik]

здраствуйте нужна помощь в дописании програмы.

в которой нужно сделать так чтобы какбы таблица даных :

Учебное заведение

Лицей
Название
Количество учеников
Город
Учебное направление
Методика преподавания

ВУЗ государственный
Название
Количество студентов
Город
Количество факультетов.
Уровень aкредитации.

ВУЗ частный
Название
Количество студентов
Город
Оплата обучения
Лицензия

в процедуре 1 даные записывались в файл ,
в процедуре 2 даные вызывались с файла,
в процедуре 3 показывались среднее количество студентов в городе, который пользователь вводит с клавиатуры.
потом в процедуре '4.Show list of HEOs with more than 10 faculties' показывались вузы з больше чем 10 факультетами.
сделать так чтобы вузы без лицензии удалялись автоматически.

вот мой код , но в нем не работают процедура отображения записи, поиска количества студентов и отображения вузов з больше чем 10 факультетами.


uses crt;
type zap=record
citi:string;
case tag:integer of
1:(nazvalic:string;numblic:integer; napryam:string;metodyka:string);
2:(nazvaderj:string;numbderj:intege r;numbfac:integer;riven:integer);
3:(nazvapriv:string;numbpriv:intege r;oplata:integer;license:string);
end;

var zaklad:array[1..30] of zap;
f1,f2:file of zap;
i,j,k,l:byte;
ch:char;

procedure Init;
begin
clrscr;
assign(f1,mas[j]);
rewrite(f1);
repeat
i:=i+1;
with zaklad[i] do
begin
writeln('Input type of educational office: 1-College, 2-State HEO, 3-Private HEO');
readln(tag);
case tag of
1:begin
write('College ');
write('Name: '); readln(nazvalic);
write('Number of students: '); readln(numblic);
write('Situating city: '); readln(citi);
write('Study preference: '); readln(napryam);
write('Methods of study: '); readln(metodyka);
end;
2:begin
write('State HEO ');
write('Name: '); readln(nazvaderj);
write('Number of students: '); readln(numbderj);
write('Situating city: '); readln(citi);
write('Number of faculties: '); readln(numbfac);
write('Level of accreditation: '); readln(riven);
end;
3:begin
write('Private HEO ');
write('Name: '); readln(nazvapriv);
write('Number of students; '); readln(nazvapriv);
write('Situating city: '); readln(citi);
write('Price of study: '); readln(oplata);
write('License # '); readln(license);
end;
end;
end;
writeln('Do you wish to continue?'); ch:=readkey;
until ch='n';
close(f1);
end;

procedure Bowser;
begin
clrscr;
reset(f1);
for j:= 1 to i do
with zaklad[j] do
case tag of
1:begin
writeln('College: ',nazvalic,' ',numblic,' ',citi,' ',napryam,' ',metodyka);
readln;
end;
2:begin
writeln('State HEO: ',nazvaderj,' ',numbderj,' ',citi,' ',numbfac,' ',riven);
readln;
end;
3:begin
writeln('Private HEO: ',nazvapriv,' ',numbpriv,' ',citi,' ',oplata,' ',license);
readln;
end;
end;
end;

procedure search;
var tmp:string;
begin
clrscr;
writeln('Input city where we will count medium number of pupils');
readln(tmp);
while not eof(f1) do
begin
for j:=1 to i do
with mas[j] do
begin
read(f1,mas);
writeln('Pupils in ',tmp,' city');
if tmp=misto then writeln(mas[j].numberuch);
readln;
end;
readln;
end;
readln;
end;

procedure student;
begin
begin
for j:=1 to i do
if zaklad[j].numbfac>10 then
writeln('State HEO ',zaklad[j].numbfac,'has more than ten 10 faculties');
end;
end;

procedure endprog;
begin
clrscr;
gotoxy(15,10); writeln('Do you want to exit from program? y/n');
ch:=readkey;
if ch='y' then
halt(0);
end;

begin
repeat
clrscr;
i:=0;
gotoxy(21,3); writeln('MENU');
gotoxy(15,5); writeln('1. Input database');
gotoxy(15,7); writeln('2. Show database');
gotoxy(15,9); writeln('3. Number of pupils in city');
gotoxy(15,11); writeln('4. Show list of HEOs with more than 10 faculties');
gotoxy(15,17); writeln('5. Exit');
ch:=readkey;
case ch of
'1': Init;
'2': Bowser;
'3': search;
'4': student;
'5': endprog;
end;
until ch='5';
end.