Файлы и записи в Паскаль ! Возникает трудность в решении задачи, Записи в Паскале. Опции

[Vitalik]

Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Найти фамилии владельцев и номера автомобилей данной марки.

{Не получается правильно составить алгоритм. Прошу помочь}

[Vitalik]

const n=3;
type avto =record
mar,nom,fio:string
end;

var a:array[1..n] of avto;
mark:string;
k,i:integer;
Begin
for i:=1 to n do begin
write('Введите марку автомобиля: ');readln(a[i].mar);
write('Введите номер автомобиля: ');readln(a[i].nom);
write('Введите фамилию владельца: ');readln(a[i].fio);
writeln;
end;
write('Введите требуемую марку автомобиля: ');
read(mark);
k:=0;
for i:=1 to n do
if a[i].mar=mark then
begin
writeln('ФИО: ',a[i].fio,' ; ','Номер: ',a[i].nom);
k:=1
end;
writeln;
if k=0 then write('Нет автомобилей данной марки');
End.

Писал в PascalABC