Здравствуйте. Помогите сделать задачу на PascalABC, попросили сделать с помощью записей.

Составить программу, которая

вводит данные о студентах:

№ п/п, фамилию, год рождения, пол, курс, вид спорта и выводит: выводит данные только о спортсменках по курсам и

видам спорта в алфавитном порядке.

const n=3;

type student=record

fam:string[20];

year:integer;

sex:string[1];

kurs:integer;

sport:string[30];

end;

var x:array[1 ... n] of student; i, j:integer;

p:student;

begin

for i:=1 to n do

with x[i] do begin

writeln ('сведенья о ', i,' студенте:') ;

writeln ('фамилия: ') ;

read (fam) ;

writeln ('год рождения: ') ;

read (year) ;

writeln ('пол (м или ж) : ') ;

read (sex) ;

writeln ('курс: ') ;

read (kurs) ;

writeln ('вид спорта: ') ;

read (sport) ;

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if x[i]. fam>x[j]. fam then begin

p:=x[i];

x[i]:=x[j];

x[j]:=p;

end;

for i:=1 to n do begin

with x[i] do

if (sex='ж') then writeln ('Фамилия студентки: ', fam,' Курс: ', kurs,' Вид спорта: ', sport) ;

end;

end.