Собрать в файле g сведения о лучших учениках школы

[lalka123]

Дан файл f, содержащий сведения об учениках. Сведения об ученике состоят из его имени и фамилии и названия класса (года обучения и буквы), в котором он учится и отметки полученные учеником в последней четверти. Собрать в файле g сведения о лучших учениках школы, т.е. об учениках, не имеющих отметок ниже 4 и по сумме баллов не уступающих другим ученикам своего и параллельных классов.

[Trojan_de]

Создай запись типа имя фамилия, класс, сумма оценок и сравнивай, учитывая, что не должно быть оценок ниже 4

[lalka123]

да ты чертов гений я смотрю

[Stilet]

да ты чертов гений я смотрю

А ты чего ярлыки то вешаешь? Сам то что-нибудь сделал по заданию? Или ноль?

[Serge_Bliznykov]

Сообщение от lalka123

да ты чертов гений я смотрю

Мда, ответ "достойный"...

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

[Алексей_2012]

uses crt;

type
Trec=record
fam:string[15];
im:string[10];
name_kl:string[5];
ocenki:byte;
{...}
end;

var 
F:file of trec;
w:trec;
k:byte;

begin
clrscr;
k:=0;
writeln('Rabotaet? 1-yes, 2-no');
readln(k);

case k of
1: writeln('Realy?? O_o');
2: writeln('O my God!');
else
writeln('Pochemy dge??');
end;

readln;
end.

З.Ы. Код не тестировал, но должно работать