Выписать фамилии владельцев авто данной марки из файла в файл - 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 Сидоров ...

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

textual
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;

13   голосов, оценка 4.231 из 5


СОХРАНИТЬ ССЫЛКУ