записи (pascal)

[remember me]

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

[Serge_Bliznykov]

Давайте Ваши наработки, что сделали, что не получается?
А если хотите полностью задачу - идите во Фриланс.

[remember me]

что такое фриланс

[remember me]

program lab9;
const n=25;
type student=record
fio:string[30];
nazvaklasu:string[30];
ocinku :array[1..5] of byte
end;
var studasu:student;
kil,i,k,r :integer;
{uchni maut ocinku nuwe 4}
begin
kil:=0;
writeln ('vvedit',n,'pochatok danux');
with studasu do begin
for i:=1 to n do begin
readln (fio);
readln (nazvaklasu);
for r:=1 to 5 do
{readln(ocinku);}
readln;
for i:=1 to n do
for k:=1 to 5 do begin
if ocinku [k]>3
then goto m1;
end,
kil:=kil+1
writeln (fio);
writeln (nazva klasu);
m(:end;{for;}
end{with}
writeln ('kil=',kil);
end;
var studasu:student;
kil;i;k;o integer;
{uchni maut 4i 5 perevuchuuti inshux}
begin
kil:=0
writeln (,'n',pochatok danux)
with studasu do begin
for i:=1 to n do begin
for r:=4 to 5 do begin
(ocinku),readln
for i:=1 to n
for k:=4 to 5 do begin
if ocinku [k]>3; then <>0
end,
kil:=kil+1
writeln (kil);
m(:end;{for;}
end {with}
writeln ('kil=',kil);
end.

что тут не правильно