помогите,пожалуйста,девушке с решением задачи

[КрасиваЯ]

Ребята привет!!!выручайте!плиззз!!!задача нужна до вторника,а я не шарю(((посмотрите плиз!может кто решит!!ребят буду очень вам признательна!плиззз!!!
нужно записать в файл информацию о 100 студентах вуза: фамилия, пол, возраст, курс. написать программу, которая вводит эту информацию в файл и печатает для каждого курса самую распространенную женскую фамилию для студенток заданного возраста.

помогите!!!!!!!

[Utkin]

Замечательная задача, а Вы не думали, что программисты все-таки не телепаты и не способны определить по задаче на каком все же языке программирования требуется решение?

[DM_bite]

Примерчик, конечно, бредовый, но пойдет.

program Xd;
const n=2;
type Students = record
     Sirname: string;
     Pol:string;
     Age: integer;
     Kurs: string;
     end;
var a:array [1..n] of Students;
    F: text;
    i: integer;
    begin
    assign(F, 'file.txt');
    rewrite(F);
    a[1].Sirname:= 'xaxax';
    a[2].Sirname:= 'asasas';
    a[1].Pol:= 'm';
    a[2].Pol:= 'zh';
    a[1].Age:= 12;
    a[2].Age:= 13;
    a[1].Kurs:= 'DDD';
    a[2].Kurs:= 'ZZZ';
    for i:= 1 to n do
     begin
     Write(F, a[i].Sirname);
     Write(F, a[i].Pol);
     Write(F, a[i].Age);
     Write(F, a[i].Kurs);
     WriteLn;
     end;
     Close(F);
     ReadLn;
     end.

[КрасиваЯ]

Извините))на Паскале надо

[КрасиваЯ]

объясните,пожалуйста, вот это))
a[1].Sirname:= 'xaxax';
a[2].Sirname:= 'asasas';

a[1].Kurs:= 'DDD';
a[2].Kurs:= 'ZZZ';

[DM_bite]

объясните,пожалуйста, вот это))

a[1].Sirname:= 'xaxax';
a[2].Sirname:= 'asasas';

Создал массив записей и обратился к 1 и 2 элементам массива, к полю "Фамилия"( а то, что я присвоил - это бред, просто для примера ).

a[1].Kurs:= 'DDD';
a[2].Kurs:= 'ZZZ';

Аналогично, но происходит обращение к полю "Курс".