Типизированные файлы в паскаль абснет

[language]

Написать программу, которая создает типизированные файлы и выводит содержимое этих файлов на экран.
Даны сведения: Марка машины, страна-производитель, год выпуска, стоимость. Hужно создать два файла типа string (Марка Машины, Страна)
Два файла типа integer ( Дата, Стоимость ). Эти файлы должны содержать данные на 10 Марок Машин.

Условие: 2000 год. (Если Дата равна=2000, то вывод всех сведений)

Чекните код, где-то ошибка точно

var f: text; a:string; p:string;
    b: text; e:string; o:string;
    n: file of real; c:real; u:real;
    m: file of integer; v:integer; q:integer;
    i:integer;
    begin
assign (f,'auto');
assign (b,'country');
assign (m,'date');
assign (n,'cost');
rewrite(f);
rewrite(b);
rewrite(m);
rewrite(n);
for i:=1 to 5 do begin
              read(a);
              writeln(f,a);
              read(e);
              writeln(b,e);
              read(c);
              write(n,c);
              read(v);
              write(m,v);
              end;
close(f);
reset(f);
for i:=1 to 5 do begin 
                 read(f,p);
                 read(b,o);
                 read(n,u);
                 read(m,q);
                 if q=2000 then write(p:5,o:5,u:5,q:5);
                 end;
close(f);
end.

[Serge_Bliznykov]

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

Даны сведения: Марка машины, страна-производитель, год выпуска, стоимость. Hужно создать два файла типа string (Марка Машины, Страна)
Два файла типа integer ( Дата, Стоимость ). Эти файлы должны содержать данные на 10 Марок Машин

Скажите, это реально в условии так дано - разделить информацию на разные файлы? Или это ваше личное решение?

просто я такое вижу впервые. Это просто глупо.
Обычно, если задача на типизированные файлы, то нужно использовать типизированные файлы.
Такие задачи предполагают использование типа record и file of <ВашТип>

p.s. а код вообще никакого отношения к задаче не имеет.
например,

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

n: file of real;

это вообще что?

[language]

как что, я описал в разделе переменных два текстовых файла и два типизированных файла,
н=файл оф реал - это типизированная файловая переменная с именем Н

[digitalis]

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

type
  MyType = record
    nanr : string ;
    n: integer ;
......................
  end;

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

var
    arr_m : array[0..15] of MyType ;
    fil_m: file of  MyType ;

Так что

н=файл оф реал

- никакой не типизированный файл, а файл действительных чисел.

[language]

Да что вы говорите, гуглите типизированные файлы и открывайте первые 10 сылок
я даже скину первую сылку по "типизированные файлы" http://pas1.ru/typed-file

[digitalis]

Я таки и не понял : language задает вопрос по своему... коду...
Этот ответ был неверным, я его убил, а у language прошу пардону. А все-таки его задачу лучше решать через записи - логичней и компактней.

[Black Fregat]

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

Это - шутка юмора ?

Вы меня, конечно, извините за то, что вмешиваюсь, но file of real - это таки действительно типизированный файл.

При этом я нисколько не ставлю под сомнение, что для данной задачи Ваш подход, конечно, более разумен.

[digitalis]

Да, Вы правы. Перечитал Вл.Попова "Самоучитель Дельфи и Паскаль"
"К типизированным файлам относятся файлы строго определенного типа. Чаще всего это файлы, состоящие из записей". Вот это "чаще всего" сыграло со мной злую шутку непреложной истины - как файлы исключительно пользовательских типов. Потому перед автором пришлось извиниться за неправильную инфу и злобный тон.