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