Помогите пожалуйста......всю голову сломал..........
Сведения об успеваемости студентов по информатике представлены в следующем виде:
<фамилия:10><группа:3><семестр:1><семестр2:1><семе стр3:1>
Вывести на экран следующие сведения:
1. Сведения о студентах, имеющих задолжность хотя бы в одном семестре.
2. Процент студентов сдавших информатику на пятерки во всех семестрах.
3. Номер семестра, в котором информатика была сдана лучше всего.

вот что я написал:

program odin;
uses crt;
const N=3;
type
familia=array [1..N] of integer;
i=integer;
s1=integer;
s2=integer;
s3=integer;
t=real;
var
tablica:record
name:string[10];
grupa:string;
sem1:integer;
sem2:integer;
sem3:integer;
end;
begin clrscr;
for i:=1 to N do
begin
with familia[i] do
begin
writeln(i);
write('Familia=');
readln(name);
write('grupa=');
readln(grupa);
end;
end;


writeln('1 semestr');
readln(sem1);

writeln('2 semestr');
readln(sem2);

writeln('3 semestr');
readln(sem3);

for i:=1 to n do
begin
if sem1=' ' or sem2=' ' or sem3=' ' then
begin
writeln('ne zakrivshie sesiu',familia[i]);
end;
end;

for i:=1 to n do
begin
if sem1=5 and sem2=5 and sem3=5 then
begin
t:=t+1;
t:=t*33.3;
Writeln('procent studentov sdavshix na 5=',t);
end;
end;

if sem1>sem2 and sem1>sem3 then
writeln('1 semestr);
end;

if sem2>sem1 and sem2>sem3 then
writeln('2 semestr);
end;

if sem3>sem1 and sem3>sem2 then
writeln('3 semestr);
end;

readkey;
end.

выдаёт ошибку..... я не могу понять какую........
помогите пожалуйста......Заранее спасибо.