Сформировать файл, паскаль

[newgener]

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

ошибку про типы выдаёт

type
automobil=record
marca: string [10];
strana: string [10];
stoimost: string [10]
end;
var
m: array [1..100] of automobil ;
Aut: file of automobil;


n,i: integer;


begin
Assign (Aut, 'C:\automobil.txt');
rewrite (Aut);
reset (aut);
writeln('vvedite kolichestvo automobiley');
read (n);
for i:=1 to n do
begin
writeln ('vvedite marcu');
read (m[i].marca);
write (Aut, m[i].marca);
Writeln ('vvedite stranu');
read (m[i].strana);
write (Aut, m[i].strana);
writeln ('vvedite stoimost');
read (m[i].stoimost);
write (Aut, m[i].stoimost);
end;
close (a);
end.

в чём ошибка: нельзя преобразовать выражение типа стринг к типу текст, а как тогда можно?

[Z1000000]

type
automobil=record
marca: string [10];
strana: string [10];
stoimost: string [10]
end;
var
Aut: file of automobil;
n,i: integer;
sAut : automobil;
begin
Assign (Aut, 'automobil.txt');
rewrite (Aut);
//reset (aut);
writeln('vvedite kolichestvo automobiley');
read (n);
for i:=1 to n do
begin
writeln ('vvedite marcu');
read(sAut.marca);
Writeln ('vvedite stranu');
read(sAut.strana);
writeln ('vvedite stoimost');
read(sAut.stoimost);
write (Aut,sAut);
end;
close (Aut);
end.

[newgener]

стоимость нельзя ведь делать как строку её потом считывать и расчитывать надо

[DoDge_VipeR]

а строку в число перегнать и обратно вам не по силам?

[newgener]

нет, скажите, как?