type
Person = record
fname: string;//Фамилия ученика
lname: string;//Имя
school: integer;//Номер щколы
end;
var student: Person;
n,s,p:integer;
tmp:string;
fin:text;//Файловая переменная
begin
assign(fin, 'students.txt');
reset(fin);
readln(n);//Получаем номер школы
while not (eof(fin)) do
begin
readln(fin, tmp);//Читаем строку из файла
p:= Pos(';', tmp);
Delete(tmp, 1, p);//удаляем все до первого разделителя
p:= Pos(';', tmp);
Delete(tmp, 1, p);//удаляем все до второго разделителя
// в tmp остался номер школы
student.school:=strtoint(tmp);
if student.school=n then s+=1;
end;
writeln(s);
end.
