Программа, корректировки файла записей, на примере файла по группе студентов.

[S.T.A.L.K.E.R.20]

Код работает, но такой вопрос, мне же нужно сортировать по фамилии именно в этом файле - "gruppa.dat", а здесь он сам создает фамилии с оценками и их сортирует....
Он же должен открывать файл "gruppa.dat" и его записи сортировать.
А с сортировкой по среднему баллу он должен открывать файл xorosh.txt и тоже сортировать их по убыванию...

[Serge_Bliznykov]

Он же должен открывать файл "gruppa.dat" и его записи сортировать.

хм... я думал, что для человека, который написал столько кода, причём правильно! разбросал его по модулям, это не проблема...

так это же демонстрация была!
Вам достаточно вместо

  N := 8; {сколько записей будет в массиве - это для отладки...}
  {заполним массив}
  for i:=1 to N do begin ....

написать что-то вроде :

  assign (f,'gruppa.dat'); reset(f);
  n := FileSize(f);
  for i:=1 to n do Read(f, MasZap[i]);

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

А с сортировкой по среднему баллу он должен открывать файл xorosh.txt и тоже сортировать их по убыванию...

с чего это он должен открывать файл xorosh.txt и сортировать его?!!!
Сортируйте точно так же исходный файл ('gruppa.dat')!
только напишите функцию, которая вычисляет и возвращает среднее значение балла и в процедуре сортировке напишите так:

procedure SortBySrednijBal(var Mas : Massive_of_ZAP; CountRecN : integer);
var i, j : integer;
  msX : zap;
begin
  {сортировка массива методом простых обменов ("пузырька") }
  for i:=1 to CountRecN-1 do
    for j:=i+1 to CountRecN do
      if SrednijBal(Mas[i]) < SrednijBal(Mas[j]) then
        begin
          msX:=Mas[i];
          Mas[i]:=Mas[j];
          Mas[j]:=msX
        end;
end;

[S.T.A.L.K.E.R.20]

Все отлично спасибо, у меня прост с утра голова вообще не работала,веселой ночка была........
Я и понаписал вопросов.
Еще раз спасибо.

[S.T.A.L.K.E.R.20]

Помогите с модулем удаления я написал его но он с ошибками ....

[S.T.A.L.K.E.R.20]

Помогите с кодом
для удаления студента по фамилии.