задание:
"Стрyктyра записи исходного документа – типизированный файл: курс, группа, номер в списке, фамилия, оценки по 4 предметам. Напечатать в выходном докyменте:Упорядоченный по алфавиту список студентов указанной группы."
возникла проблема со второй половиной задания и сортировкой по алфавиту.
прошу помощи в написании программы или описание подробного алгоритма работы.
заранее благодарю.
const m=100;
type students = record
kurs : byte;
grup : byte;
numb : byte;
fam : string[15];
pr1, pr2, pr3, pr4 : string[15];
opr1, opr2, opr3, opr4 : byte;
end;
var a : students;
F : text;
F2 : file of students;
n, i, j, numgrup : integer;
stud : array [1..m] of students;
begin
write('Введите кол-во студентов: ');
readln(n);
assign(F,'G:\pract\zapisi\spisok.doc');
rewrite(F);
with a do
begin
for i:= 1 to n do
begin
write('Введите курс ',i,' студента: ');
readln(kurs);
write('Введите группу ',i,' студента: ');
readln(grup);
write('Введите номер в списке ',i,' студента: ');
readln(numb);
write('Введите фамилию ',i,' студента: ');
readln(fam);
write('Название первого предмета для ',i,' студента: ');
readln(pr1);
write('Оценка по первому предмету для ',i,' студента: ');
readln(opr1);
write('Название второго предмета для ',i,' студента: ');
readln(pr2);
write('Оценка по второму предмету для ',i,' студента: ');
readln(opr2);
write('Название третьего предмета для ',i,' студента: ');
readln(pr3);
write('Оценка по третьему предмету для ',i,' студента: ');
readln(opr3);
write('Название четвертого предмета для ',i,' студента: ');
readln(pr4);
write('Оценка по четвертому предмету для ',i,' студента: ');
readln(opr4);
write(F, a);
end;
end;
close(F);
assign(F2,'G:\ptact\zapisi\alfav.doc');
reset(F);
rewrite(F2);
while not eof(F) do
begin
writeln('введите номер группы');
readln (numgrup);
end;
end.