Найти ошибку в коде

[Oksik_]

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

    Program file;
    uses crt;
    Type Auto = record
          fio,adress,marka: string;
          price,year: integer;
    end;
    var info : auto;
         f: file of auto;
         name: string;
    begin
    clrscr;
    Writeln ('Задайте имя файла');
    Readln (name);
    Assign (f, name);
    Rewrite (f);
    Writeln ('Введите фамилию, адрес владельца, марку автомобиля');
    Readln (info.fio, info.adress, info.marka);
    While info.fio <> ' ' do
    Begin
    Writeln ('Введите цену и год выпуска автомобиля');
    Readln (info.price, info.year);
    Write (f, info);
    Writeln ('Введите фамилию, адрес следующего владельца, марку автомобиля ');
    Readln (info.fio, info.adress. info.marka);
    End;
    Close(f);
    Writeln ('Файл создан');
    readln
    End.

имя файла задаю spisok.txt, файл он создаёт, но записывает туда только фамилию, адрес, марку первого владельца/автомобиля, а цену и год не записывает...В чём ошибка?

[koljsch]

Не уверен точно, но у Вас же всего один тип данных Auto, это info.
И как я понимаю, то Вам нужно несколько владельцев записать, но тогда нужен массив типа Auto

[Oksik_]

ну по идее, чтобы записать только одного владельца, он цену и год должен тоже вывести, а он не хочет(

[BDA]

Попробуйте заполнить поля Auto прямо в коде и записать в файл.
И, на всякий случай, поменяйте в описании структуры string на string[30], т.е. ограничьте длину строки.

[koljsch]

Попробуйте, где

Writeln ('Введите цену и год выпуска автомобиля');
    Readln (info.price, info.year);
    Write (f, info);

написать

Writeln ('Введите цену и год выпуска автомобиля');
    Readln (info.price, info.year);
    Write (f, info.price);

[BDA]

Write (f, info.price);

Так лучше не делать, т.к. файл типа Auto, а не Integer.

[koljsch]

Да, верно, извиняюсь.
На вскидку, разве эта строка скомпилируется?

Readln (info.fio, info.adress. info.marka);

Может там взамен "." надо ","?
И он у Вас хотя бы спрашивает ввести цену и год?

[Oksik_]

Сообщение от koljsch

Да, верно, извиняюсь.
На вскику, разве эта строка скомпилируется?

Readln (info.fio, info.adress. info.marka);

Может там взамен "." надо ","?
И он у Вас хотя бы спрашивает ввести цену и год?

компилирует, ещё как, и просит ввести, но в файле цена и год не отображается..

[Oksik_]

сейчас попробую, но по заданию надо сделать, чтобы с клавы вводилось

[BDA]

Во-первых, не пишите несколько сообщений подряд (нарушение правил форума), а используйте кнопочку Правка.
Во-вторых, попробуйте исправить точку на запятую, как сказал koljsch (и правда, удивительно, почему компилируется).