считывание слова из файла

[newgener]

ПОМОГИТЕ, ПОЖАЛУЙСТА
1.Сформировать файл, содержащий сведенья об n автомобилях. Записи включают: марку, страну-производителя, стоимость.
2. Увеличьте на 10 % стоимость всех авто, произведённых в конкретной стране (страна вводиться пользователем).

1-ое сделал, а второе как?
есть вот некоторые наработки

type

automobil=record
marca: string [10];
strana: string [10] ;
stoimost: integer;

end;
var
strana2: string;
m: array [1..100] of automobil ;
n,i: integer;
f: text;
begin
assign (f,'C:\mach.txt');
rewrite (f);

writeln('vvedite kolichestvo automobiley');
read (n);
for i:=1 to n do
begin
writeln ('vvedite marcu');
read (m[i].marca);

Writeln ('vvedite stranu');
read (m[i].strana);

writeln ('vvedite stoimost');
read (m[i].stoimost);


write (f,' ',i,' ',m[i].marca);
write ;
write (f,' ',m[i].stoimost);
writeln (f,' ');
end; {запись закончена}




reset (f);
read (strana2);
read (f,m[i].strana);

for i:=1 to n do
begin
if (strana2):=(m[i].strana) then

close (f);
end.