Типизированные файлы

[V1rus.25]

Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Дан файл F содержащей сведения о некоторых автомобилях. Найти: количества овтомобилей каждой марки, используя типизированные файлы.

В итоге должно выйти что-то типа:
Введите марку автомобиля:
PORSHE
Найдено автомобилей:3
PORSHE 911 Номер12345 Иванов
PORSHE Boxster Номер 11234 Петров
PORSHE Cayenne Номер 11123 Сидоров



Вот тоже нашел похожую но только с номерами, а как переделать под марки не понимаю (((

function FindNumber(var aFile: text; aNumber: integer): boolean; 
var N: integer; { текущий номер в БД } 
begin 
FindNumber:= false; { на случай, если файл пуст } 
Reset(aFile); { позицию чтения устанавливаем в начало файла } 
N:=0; { в начале цикла задаем несуществующий номер } 
{ читаем номера из файла, пока НЕ конец файла И номер НЕ найден } 
while not Eof(aFile) and (N<>aNumber) do begin 
Readln(aFile, N); 
FindNumber:= (N=aNumber); { true, если номер нашелся } 
end; 
end; 
var F: text; Num: integer; 
begin {----- Главная программа -----} 
Assign(F, 'Police.txt'); 
repeat 
Write('Укажите номер автомобиля: '); Readln(Num); 
if FindNumber(F, Num) 
then Writeln('Эта машина в розыске, хватайте его!') 
else Writeln('Пропустите его'); 
until Num=0; { 0 – признак завершения программы} 
Close(F); 
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

КРОССПОСТ ЗАПРЕЩЁН

ВАША ТЕМА - ТУТ

Модератор