Выписать фамилии владельцев авто данной марки из файла в файл - Pascal ABC

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

Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Дан файл f, содержащий сведения о нескольких автомобилях. Найти: а) фамилии владельцев и номера автомобилей данной марки; б) количество автомобилей каждой марки. Найденные данные записать в файл g. Похожее здесь уже решалось, но эта задача посложнее... Вот начало написал, а дальше не понимаю как:

type auto=record mar,nom,fam:string; end;
var a:auto; m:string; i:integer;
    f:file of auto;
begin
  assign(f, 'auto.dat'); reset(f);
  write('Введите марку машины, по которой нужны данные:'); readln(m);
//...
//...

Пример входных данных (файла auto.dat): Ford 21 Иванов Lada 090 Сидоров ...

Решение задачи: «Выписать фамилии владельцев авто данной марки из файла в файл»

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

assign(f,'input.txt');
reset(f);
for i:=1 to 1000 do begin
read(f,a[i].mar);
read(f,a[i].nom);
readln(f,a[i].fam);
b:=b+1;
if eof(f) then break;
end;

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

В данном коде происходит чтение данных из файла 'input.txt', который содержит информацию о владельцах автомобилей.

Строка assign(f,'input.txt'); задает файл 'input.txt' в качестве источника данных для чтения.
Строка reset(f); сбрасывает состояние файла, чтобы начать чтение с начала.
В цикле for i:=1 to 1000 do begin происходит последовательное чтение информации о владельцах автомобилей.
- Строка read(f,a[i].mar) считывает марку автомобиля.
- Строка read(f,a[i].nom) считывает имя владельца.
- Строка readln(f,a[i].fam) считывает фамилию владельца.
- Строка b:=b+1; увеличивает счетчик количества прочитанных записей.
- Если достигнут конец файла (eof(f)), то цикл прерывается с помощью оператора break.
После завершения цикла выводится значение переменной b, которое должно быть равно количеству прочитанных записей.