написала записи на паскаль....

[Чумак Татьяна]

Дорогие программисты я написала записи на паскаль, вот они:
program lab8;
type gruppa = record
familiya:string[20];
imya:string[10];
mes_rog:string[20];
nom_tel:string[20];
mesyac_rog:string[10];
god_rog:real;
end;
var
F:file of gruppa;
studentu:array[1..50] of gruppa;
i, n:integer;
Begin
writeln;
write('Vvedite kol-vo zapisej o studentah=');
readln(n);
assign(F,'c:\studentu');
rewrite(f);
writeln(' Vvedite svedeniya o studentah');
for i:=1 to n do begin
write('Familiya:');
readln(studentu[i].familiya);
write('imya:');
readln(studentu[i].imya);
write('mes_rog:');
readln(studentu[i].mes_rog);
write('nom_tel:');
readln(studentu[i].nom_tel);
write('mesyac_rog:');
readln(studentu[i].mesyac_rog);
write('god_rog:');
readln(studentu[i].god_rog);
write(F,studentu[i]);
writeln('---------');
end;
Close(F);
end.
Но по заданию указано, вот оно:Безымянный.JPG, что там нужно сделать еще и упорядочить записи, и на его основе сформулировать новый список... Пожалуйста подскажите мне, что нужно дальше делать...А то я не разберусь сама..

[GetMax]

Разбирайтесь

type gruppa = record
familiya:string[20];
imya:string[10];
mes_rog:string[20];
nom_tel:string[20];
mesyac_rog:string[10];
god_rog:Word;
end;
var
F:file of gruppa;
Buffer:gruppa;
studentu:array[1..50] of gruppa;
i,n,k:integer;
Obmen:Boolean;
Mes:String[20];
Begin
writeln;
write('Vvedite kol-vo zapisej o studentah=');
readln(n);
writeln(' Vvedite svedeniya o studentah');
for i:=1 to n do with studentu[i] do
begin
write('Familiya:');
readln(studentu[i].familiya);
write('imya:');
readln(studentu[i].imya);
write('mes_rog:');
readln(studentu[i].mes_rog);
write('nom_tel:');
readln(studentu[i].nom_tel);
write('mesyac_rog:');
readln(studentu[i].mesyac_rog);
write('god_rog:');
readln(studentu[i].god_rog);
writeln('---------');
end;
k:=n;
Repeat
  Obmen:=False;
  For i:=1 to k-1 do with studentu[i] do
  If studentu[i].familiya > studentu[i+1].familiya then
  Begin
    Buffer:=studentu[i];
    studentu[i]:=studentu[i+1];
    studentu[i+1]:=Buffer;
    Obmen:=True
  End;
  Dec(K)
Until Not Obmen;
For i:=1 to N do with studentu[i] do
Begin
Writeln(Familiya,'     ',imya,'      ',mes_rog,'     ', nom_tel,'     ',mesyac_rog,'     ',god_rog)
End;
Writeln;
Write('Vvedite mesyac ');
Readln(Mes);
For i:=1 to N do with studentu[i] do
Begin
  If Mesyac_rog = Mes then Writeln(Familiya)
End;
Readln
End.