Определить количество учеников в школе с заданным номером с клавиатуры - Pascal ABC

Формулировка задачи:

Pascal ABC Тема Записи С клавиатуры вводится номер школы. Файл содержит сведения: фамилию, имя ученика, номер школы. Определить кол-во учеников в школе с заданным номером с клавиатуры Я пытался сделать ее 2 раза, не получилось(

Решение задачи: «Определить количество учеников в школе с заданным номером с клавиатуры»

Листинг программы

type tovar=record
name:string[19];
kol:byte;
end;
var a:array [1..23] of tovar;
i,k,k1,n:integer;
f:text;
begin
assign(f, 't1.txt');
reset(f);
k:=0;
while not eof(f) do begin
  k:=k+1;
  with a[k] do begin
    readln (f,name);
    readln (f,kol);
  end;
end;
for i:=1 to k do
  with a[i] do begin
    write(name, ' ',kol, ' ');
  end;
  writeln();
  read (n);
  k1:=0;
  i:=1;
for i:=1 to k do
  if (a[i].kol=n) then k1:=k1+1;
  write(k1);
end.

Объяснение кода листинга программы

В этом коде используется язык программирования Pascal ABC.

Объявляются переменные:
- a - массив из 23 элементов типа tovar, где каждый элемент содержит имя (строка до 19 символов) и количество (байт).
- i, k, k1, n - целочисленные переменные для выполнения различных операций в коде.
- f - текстовый файл для чтения данных из файла t1.txt.
Открывается файл t1.txt для чтения.
Переменная k инициализируется значением 0 и используется для подсчета количества записей в файле.
В цикле while с условием not eof(f) происходит чтение данных из файла до тех пор, пока не будет достигнут конец файла. Каждая запись состоит из двух частей: имя и количество. Значения сохраняются в соответствующих полях массива a.
В цикле for i:=1 to k происходит вывод данных из массива a на экран. Для каждой записи выводится имя, количество и пробел.
Переменная n считывается с клавиатуры.
Переменная k1 инициализируется значением 0 и используется для подсчета количества записей с заданным количеством.
В цикле for i:=1 to k происходит проверка значения количества в каждой записи массива a. Если значение совпадает с переменной n, то значение k1 увеличивается на 1.
Значение переменной k1 выводится на экран.