задача с текстовым файлом *, с игрушками Опции

[Димас]

вот ещё одну задачу никак осилить не могу

Дано файл Assort , содержащий свединья об игрушках: указывается название игрушки, ее стоимость в рублях и возрастные границы(например, игрушка может предназаначатся для детей от двух до пяти лет)
Определить:
б.) Стоимость самого дорогого конструктора


тут вообще то удобней бы было использовать БД а не файл, хотя мы этого ещё не учили.
&
предположения такие(мысли в слух):

так я вижу структуру:

*************************************** ***********
* ID * Название игрушки * Цена р * Возраст. категория *
*************************************** ***********
* 1 * Конструктор Lego * 100 * 2-5 *
......................................................................................... и т.д

предпологаю сделать так (если так возможно):

загнать всё это в двухмерный массив(или в одномерный но с record'дами) и как то записать в файл... потом считывать с файла и в цыкле по "Цене"
вывести на Дисплей самый догогой продукт!

по дргуму пока ни вижу(глаза закрыты ещё)

----
обясните как это сделать или как по другому поступить ?

Сообщение отредактировано: Димас - 12.03.2007 19:04

[Димас]

ну хоть убей не могу разобратся в чужом коде по ссылке volvo


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

общем так написал эту задачу для начала без файла:

Program z1280b;

uses crt;

const n = 2; {количесво}

{-----------Запись------------}
type
Assort = record
  title: string[20];{название}
  price: integer;{Цена}
  age1,age2: integer;{Возраст}
  end;
{-----------end----------------}

 var
 info: array[1 .. n] of Assort;
 f:text;
 i,price,max:integer;
Begin
ClrScr;


{Вместо этого занесения в масив, мне надо что бы оно считывало с файла и присвоивало, НО КАК ??? }
info[1].title:='traktor';
info[1].price:=50;
info[1].age1:=7;
info[1].age2:=12;
info[2].title:='Lego';
info[2].price:=77;
info[1].age1:=4;
info[1].age2:=7;



 {-------------from file----------------}
  { assign(f,'data.txt'); {file}
   reset(f); }
 {----------------end-------------------}
 {0}
price:=0;
max:=0;

 {------------цыкл для того что бы узнать наибольшую цену------------------}
 for i:=1 to n do
   Begin
        if (price < info[i].price)
   then
   Begin
    price:=info[i].price;
    max:=i;
   end;
   end;

{----------------end--------------}

writeln(info[max].title,' ',info[max].price); 
readkey;
end.

Эх