Решить на Pascal Распечатать анкетные данные студентов, поступивших ранее 2006 года

Type anketa = record
fio:string;
data: string;
fiz, mat, bio, him: byte;
srball: real;
end;

var student: array[1..100] of anketa;
n, i, x: integer;
s: string;

const fi: array [1..8] of string = ('Иванов','Сидоров','Попов','Петров','Ульянов','Александров','Семенов','Алексеев');
im: array [1..8] of string = ('Иван','Сидор','Михаил','Петр','Илья','Александр','Семен','Алексей');
ot: array [1..8] of string = ('Иванович','Сидорович','Михайлович','Петрович','Ильич','Александрович','Семенович','Алексеевич');

begin
write ('Введите количество студентов n [1..100] = ');
readln (n);
for i:=1 to n do
begin
student[i].fio:=fi[1+random(8)] +' '+im[1+random(8)]+ ' '+ ot[1+random(8)];
x:=1 + random (28);
str (x, s);
if x < 10 then s:='0'+s;
student[i].data := s;
x:=1+random (12);
str (x, s);
if x < 10 then student[i].data:=student[i].data+'/0'+s
else student[i].data:=student[i].data+'/'+s;
x:=2000+random (15);
str (x, s);
student[i].data:=student[i].data+'/'+s;
student[i].fiz := 1+random(5);
student[i].mat := 1+random(5);
student[i].bio := 1+random(5);
student[i].him := 1+random(5);
student[i].srball :=(student[i].fiz +student[i].mat+ student[i].bio+student[i].him) /4;
end;
writeln;
writeln;
writeln ('ФИО':10,'Дата':32,'Физика':12,'Матем.':8,'Биол.':7,'Химия':7,'Ср. Балл':10);
for i:=1 to n do
begin
write (student[i].fio);
write (' ':(35-length(student[i].fio)));
write (student[i].data:10);
write (student[i].fiz:6);
write (student[i].mat:8);
write (student[i].bio:8);
write (student[i].him:7);
write (student[i].srball:10:2);
writeln;
end;
writeln;
writeln;
writeln ('Анкетные данные студентов, поступивших ранее 2006 года');
writeln;
writeln ('ФИО':10,'Дата':32,'Физика':12,'Матем.':8,'Биол.':7,'Химия':7,'Ср. Балл':10);
for i:=1 to n do
if copy (student[i].data, 7, 4) < '2006' then
begin
write (student[i].fio);
write (' ':(35-length(student[i].fio)));
write (student[i].data:10);
write (student[i].fiz:6);
write (student[i].mat:8);
write (student[i].bio:8);
write (student[i].him:7);
write (student[i].srball:10:2);
writeln;
end;
end.