Pascal ABC, помогите доделать
 

написать программу , которая вводит все данные об n (n=10) студентах ,и выводит всю информацию на экран в табличном виде. А именно список юношей получивших в сессию более двух двоек. оценки ставятся за четыре экзамена( математика,физика, английский и информатика)


пробую делать, но не получается.

program upr1;
const n=10;
m=5;
type date=record
day:1..31;
month:1..12;
year:integer;
end;
predmet=record
ot:integer;
end;
pupil=record
fam,name:string[15];
p:char;
bd:date;
ch:predmet;
end;
procedure p1( var a:pupil);
begin
with a do
begin
write('фамилия');
readln(fam);
write('имя');
readln(name);
write('пол');
readln(p);
write('дата рождения');
readln(bd.day,bd.month,bd.year);
write('оценки');
readln(ch.ot);
end;
end;
procedure p2( a:pupil);
begin
with a do begin
write(fam,'':15-length(fam));
write(name,'':10-length(name));
with bd do begin
if day<10 then write ('0');
write(day,'.');
if month<10 then write ('0');
write(month,'.');
write(year);
end;
end;
end;
var mas:array[1..n] of pupil;
i,k:integer;
begin
writeln('введите информацию об ',n,'учениках');
for i:=1 to n do p1(mas[i]);
writeln('список учеников:');
writeln('n фио пол дата рождения ');
for i:=1 to n do begin write (i:2,'.');
p2(mas[i]);
writeln('введите оценки ');
for i:=2 to m do write ([i]);
end;
writeln;
i:=1;
while(mas[i].p<>'м') and (i<n) do i:=i+1;
if (mas[i].p='м' ) and (pupil.ot =2)
then begin k:=k+1;
write(k:2,'.');
p1(mas[i]);
end;
writeln('юноша с двойками');
end.

Ильгиза, еще раз и медленно - я готов Вам помочь, если Вы составите сам список студентов и их оценок. Кстати, в этом случае можно сделать ввод данных о студентах из файла, что удобнее, чем с клавиатуры. Если же нужно непременно с клавиатуры - напишите. Но в любом случае составьте и выложите список для отладки. Я этим заниматься точно не буду.

мне составлять сведения о 10 студентах???

если можно тогда просто подскажите алгоритм определения студента с 2-мя двойками!

Ох, простите, Ваше Величество, забылся...

Извините меня пожалуйста, но я просто не поняла. Просто необходимо ввести к примеру1) Иванова Ирина Ивановна пол Ж дата рождения 18 03 1992 и оценки по 4 предметам к примеру 4 5 4 5.
2) Иванов Вадим Петрович пол М дата рождения 22 10 1989 и оценки по 4 предметам
2 2 2 5 .
Иванов получил более 2-х двоек,информацию о нем и надо вывести.

Помогите пожалуйста хотя бы с этой задачей, а потом я разберусь. Не думала, что тип записи такой сложный. (((

Сегодня, увы, не получится - если только завтра.
P.S. Да ничего сложного в этих записях нет!

Ладно, держите:

Спасибо большое!!!!!Спасибо за понимание!!!