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

Var i,p:integer; mar,d:string;
f:file of record
 M:string; C:string; Y:string; S:string;{берем типизированный файл записей}
 End;
A:array[1..5] of record
 M:string; C:string; Y:string; S:string;{массив записей}
 End;
Begin
Assign(f,'C:\Database');{связываем переменную и файл}
ReWrite(f);{создаем файл записей}
For i:=1 to 5 do
 Begin
  Write('Марка:'); Readln(A[i].M);
  Write('Цвет:'); Readln(A[i].C);
  Write('Год выпуска:'); Readln(A[i].Y);
  Write('Владелец:'); Readln(A[i].S);{ввод данных}
  Writeln;
 End;
Write('Введите марку и цвет:'); Readln(d);{марку и цвет вводите в одной строке через пробел(замечу, что регистр имеет значение, то есть КРАСНЫЙ и красный будут считаться как разные цвета)}
p:=Pos(' ',d); mar:=Copy(d,1,p-1);{выделяем из строки марку}
Delete(d,1,p);
For i:=1 to 5 do
 Write(f,A[i]);{записываем все записи в файл}
Close(f);{закрываем файл}
Reset(f);{открываем его для чтения}
For i:=1 to 5 do
 Begin
  Read(f,A[i]);
  If (A[i].M=mar) and (A[i].C=d) then Writeln(A[i].S);{если марка и цвет совпадают, выводим имя владельца}
 End;
Close(f);{закрываем файл}
End.