Файлы данных. типизированные файлы. последовательный доступ

[Elena188]

здравствуйте.
Парни помогите, завтра нужно срочно эти програмки сдать(( а я глупая..
кто что знает? подскажите

Задача 1

Создайте файл данных о 5-6 друзей с полями 1) фамилия 2) год рождения 3) место рождения 4) хобби. Используйте файл так: выведите на экран список друзей, которые имеют с вами одинаковое хобби

Задача 2

создайте файл действительных чисел. подсчитать количество элементов файла, больших 1 (количество элементов файла и сами элементы вводятся с клавиатуры)

[min@y™]

завтра нужно срочно эти програмки сдать(( а я глупая..

ты борщ варить умеешь?

[Elena188]

да)

[min@y™]

да)

Голова часто болит?
Говоришь громко, много?
Дом-2 любишь смотреть?

[Elena188]

ахах
дом 2 точно не смотрю, говорю мало

[min@y™]

ахах
дом 2 точно не смотрю, говорю мало

Бросай ты эту учёбу.
ВЫХОДИ ЗА МЕНЯ!!!



Я не пью, не курю и много зарабатываю. У меня 2 двухкомнатные квартиры.
Ну пожалуйста!!!



З.Ы. Машины, правда, нету. Но купить могу.

[Elena188]

ехх, если бы так было все просто) но мне надо сделать эти задачки и закрыть сессию( .. а потом можно и замуж

[min@y™]

какая ЖАЛЬ!

[Elena188]

[type_Oleg]

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

..
Создайте файл данных о 5-6 друзей с полями 1) фамилия 2) год рождения 3) место рождения 4) хобби. ...

Создал файл данных.

Вот такой тип:

type
tFriend=record
 name:string[24];
 date_of_birth:Word;
 place_of_birth:string[24];
 hobbies:string[64];
end;