помогите решить задачу

[kriss123]

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

program zachet;
uses crt;

var
g:array[1..100]of integer;
c:char;
o:array[1..100,1..5]of integer;
i,j:integer;
f1,f2:text;
f:array[1..100]of string[15];
m,a:integer;

begin
clrscr;

assign(f1,'c:\f1.txt');
reset(f1);
readln(a);

for i:=1 to a do
begin
readln(f1,f[i]);
read(f1,g[i]);
  for m:=1 to 5 do
  read(f1,o[i,m]);
 end;
close(f1);

assign(f2,'c:\f2.txt');
rewrite(f2);

writeln('Введите тип сортировки:
  f-по фамилии
  g-по дате рождения
  o-по оценкам');
readln(c);

[Stilet]

Как делать сортировку пузыръком знаешь?

[kriss123]

Можеш код написать пожалуйста очень надо

[alex_fcsm]

Проще переделать с записями и работать с 1 массивом а не с 3.

Как пример

uses crt;
type TStud=record
      surname:string[20];
      birth:integer;
      mark:array[1..5] of byte;
     end;

var x:TStud;
    a:array[1..100] of TStud;
    i,n,j:integer;
    f:text;
    ch:char;

begin
assign(f,'c:\1.txt');
reset(f);
readln(f,n);
for i:=1 to n do
 begin
  readln(f,a[i].surname);
  read(f,a[i].birth);
  for j:=1 to 5 do
  read(f,a[i].mark[j]);
  readln(f);
 end;
close(f);
  writeln('Введите тип сортировки:  f-по фамилии  g-по дате рождения');
  ch:=readkey;
  case  ch of
  'f':begin
       for i:=2 to n do
       for j:=n downto i do
        if a[j].surname>a[j-1].surname then
          begin
           x:=a[j];
           a[j]:=a[j-1];
           a[j-1]:=x;
          end;
        assign(f,'c:\2.txt');
        rewrite(f);
        writeln(f,n);
        for i:=1 to n do
         begin
            writeln(f,a[i].surname);
            write(f,a[i].birth);
            for j:=1 to 5 do
            write(f,' ',a[i].mark[j]);
            writeln(f);
         end;
         close(f);
      end;
  'g':begin
       // аналогично сделаешь сам
      end;
     end;


end.

P.S. Что значит сортировка по оценкам?

[kriss123]

спасибо большое про оценки сам допишу