Программа на тему "Записи", Помогите Опции

[drantez]

имеется запись типа student с полями: ФИО, год рождения, год поступления, оценки за 1, 2, и 3 экзамен (предметы любые). Создать и ввести массив из записей типа student (размер массива произвольный) и выполнить задание согласно варианту: 8. распечатать студентов , фамилия которых начинается с буквы Б и родившихся после определенного месяца

program lab15dr;
uses crt;
type student=record
    srn:string[15];{фамилия}
    yob:integer;{год рождения}
    yor:integer;{год поступления}
    oc1, oc2, oc3:integer;{оценки}
    end;
var stud:array[1..15] of student;
i:integer; x:string[1];
begin
clrscr;
for i:=1 to 3 do begin
writeln (i,')surname:');
read(stud[i].srn);
writeln('Year of birth:');
read(stud[i].yob);
writeln('Year of receipt');
read(stud[i].yor);
writeln('estimation');{оценки}
read(stud[i].oc1,stud[i].oc2, stud[i].oc3);
end;
writeln('enter symbol');
readln;
read(x);
readln;
for i:=1 to 3 do begin
if x=stud[i].srn[1] then writeln ('estimation:', stud[i].oc1,' ', stud[i].oc2,' ', stud[i].oc3)
else
writeln ('no');
end;
readln;
end.

Проблема собственно вот в чем: не показывает фамилию, только оценки. И то криво.

Сообщение отредактировано: drantez - 7.01.2011 23:45