Файловые структуры данных. Pascal

[rishikesh]

Нужна помощь в решении задачёк...
а)Дано файл вещественных чисел f. Переписать компоненты файла f в файл g так, чтобы в файле g сначала шли положительные элементы, а затем отрицательные.

б)Составить программу создания и чтения текстовых файлов.
Сформировать файл, содержащий информацию о студентах, которые родились летом (июнь, июль, август).
Эту задачку я почти сделала, но не знаю как сделать что бы выводило только тех которые "...родились летом (июнь, июль, август)."я пыталась но никак не хочет =(

program prog5_2;
uses crt;
type stud=record
student:string[15];
chuslo,god,mesyac:real;
end;
myfile=file of stud;
var f1:myfile; i,n:integer; c1:stud;
mesyac:integer;
begin clrscr;
writeln('Vvedite kolichestvo studentov: ');readln(n);
assign(f1, 'd:\stud');
rewrite(f1);
for i:=1 to n do
begin ;
writeln('Vvedite imya studenta: ');readln(c1.student);
writeln('Vvedite daty (chuslo,mesyac,god)');
readln(c1.chuslo, c1.mesyac, c1.god);
write(f1,c1);
end;
close(f1);
writeln('       Imya studenta 4uslo\mesyac god ');
reset(f1);
for i:=1 to n do
begin
read(f1,c1);
write('--------------------------------------------------------------------------------');
begin
if (mesyac<=8) and (mesyac>=6) then
writeln(c1.student:15, c1.chuslo:12:0, c1.mesyac:2:0, c1.god:9:0);
end;
end;
readln
end.

в)Используя файловый тип данных решить задачу.
Описать запись NOTE, содержащую следующие поля:
- Фамилия, имя;
- Номер телефона;
- Дату рождения (массив 3-х элементов.
Составить программу, которая выполняет следующие действия:
- Ввод с клавиатуры данных в массив из 8 элементов типа NOTE; записи должны быть упорядоченными по датам дней рождения;
- Вывести на экран информацию о человеке, фамилия которого введен с клавиатуры;
- Если такого нет, вывести соответствующее сообщение.

А вот это вообще капец, читать даже стрёмно =)

[rishikesh]

АП теме... =(

[rishikesh]

UP UP UP!! =*(

[rishikesh]

UP!.........=(

[p51x]

chuslo,god,mesyac:real;

не знал, что число месяц у нас бывает дробным....

По первой: ищите - было несколько раз, а не создавайте бессмысленные посты.

А вот это вообще капец, читать даже стрёмно

И что там такого? Фактически - вторая задача, только читать не из файла, а с пользовательского ввода.

[rishikesh]

АП теме, помогите ребята.....

[Ксения13]

Помогите пожалуйста решить задачку!
составьте программу,увеличивающую каждую отрицательную компоненту файла на 3,после чего определите каких компонент полученого файла больше,положительных или отрицательных.
Заранее спасибо))

[rishikesh]

UP темке.....

[rishikesh]

АП теме...