Изменение данных в файле

[Niusondeep]

Здравствуйте, столкнулся с проблемой, нужно переделать данный код под другое условие: "Cоздать файл из списка 10 машин с их данными ( номер, Ф.И.О. владельца, марка). Вывести его содержимое на экран, изменить фамилию владельца с номером, введенным с клавиатуры, заново прочитать файл."
Так как тот код что уже есть ищет цвет,и выводит владельца введенной марки.

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.