Помогите

[маргарита123]

Всем доброго времени суток. Ребят, нужно очень срочно сделать задание которое звучит так:



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


Заранее спасибо за ответ.

Добавлено через 3 минуты
Помогите найти ошибку!!!

uses crt;
type data=record
name:string;
sex:string;
birthday:string;
rat_dm:string;
rat_eng:string;
rat_lm:string;
rat_ua:string;
rat_ma:string;
rat_prog:string;
end;
l=array[1..20] of data;
var student:l;
n,i:byte;
data_f,rat:file of data;
procedure text(student:l; i:byte);
begin
clrscr;
with student[i] do
if (rat_ma='5')and(rat_prog='5')and(rat_eng='5')and(rat_ua='5')and(rat_lm='5')and(rat_dm='5') then
write(rat,student[i]);
end;

begin
clrscr;
writeln;
write(' enter number of students: '); readln(n);
writeln;
assign(data_f,'d:\laba10.dat');
rewrite(data_f);
for i:=1 to n do
with student[i] do
begin
write(' Stdent',i,':');
writeln;
write(' name (first,second,third): '); readln(name);
write(' birthday (day,month,year): '); readln(birthday);
write(' sex (male/female): '); readln(sex);
repeat write(' rating of discrete maths: '); readln(rat_dm);
until (rat_dm='5')or(rat_dm='4')or(rat_dm='3')or(rat_dm='2')or(rat_dm='1');
repeat write(' rating of linear maths: '); readln(rat_lm);
until (rat_lm='5')or(rat_lm='4')or(rat_lm='3')or(rat_lm='2')or(rat_lm='1');
repeat write(' ratinf of mathematical analysis: '); readln(rat_ma);
until (rat_ma='5')or(rat_ma='4')or(rat_ma='3')or(rat_ma='2')or(rat_ma='1');
repeat write(' rating of ukranian: '); readln(rat_ua);
until (rat_ua='5')or(rat_ua='4')or(rat_ua='3')or(rat_ua='2')or(rat_ua='1');
repeat write(' rating of english: '); readln(rat_eng);
until (rat_eng='5')or(rat_eng='4')or(rat_eng='3')or(rat_eng='2')or(rat_eng='1');
repeat write(' rating of programming: '); readln(rat_prog);
until (rat_prog='5')or(rat_prog='4')or(rat_prog='3')or(rat_prog='2')or(rat_prog='1');
write(data_f,student[i]);
writeln;
end;
close(data_f);

assign(rat,'d:\rat.txt');
rewrite(rat);
for i:=1 to n do
text(student,i);
close(rat);
readln;
end.

[type_Oleg]

Исправил. Показалось, что l=array[1..20] of data; буква I, оказывается l

А компилировать не пробовали? Там же ошибки укажет.

[маргарита123]

она запускается, но потом пишет path not found

[Streletz]

Сообщение от маргарита123

она запускается, но потом пишет path not found

Попробуйте запустить программу в режиме отладки (по шагам).
Тогда точно сможете узнать в какой строке кода во время выполнения программы возникает ошибка. Не даром же говорится, что отладчик лучший друг программиста.

[type_Oleg]

Сообщение от маргарита123

она запускается, но потом пишет path not found

" Путь не найден ". Значит путь к какому-то файлу не найден.