Не запускается код программы!

Program GOLOS;
{Составление списка для голосования. Выборы 31.10.2004 г.}
uses CRT;
const n=10;
Type
Date=Record
Day   :1..31;
Month :1..12;
Year  :1980..1987;
end;
st=Record
FIO: string[15];
DR : Date;
end;
vec = array [1..n] of st;
Var sp,sp1    :vec;
i,kvo,k   :byte;
f         :text;
Procedure VVod (var st:vec);
{Ввод списка студентов из файла и вывод на экран}
Begin
For i:= 1 to n do
With st[i] do
begin
readln (f,FIO,DR.Day,DR.Month,DR.Year);
Writeln(FIO,DR.Day:4,DR.Month:4,DR.Year:6);
end;
End;
Procedure Out (st:vec;var st1:vec; Var kn:byte);
{ Формирование списка студентов для голосования}
Begin
k:=1;
for i:=1 to n do if
(st[i].DR.Year<=1986)and
(st[i].DR.Month<=10)and
(st[i].DR.Day<=30) then
begin
st1[k]:=st[i]; kn:=k; k:=k+1;
End;
End;
Begin
assign (f,'sp_gr1.txt'); reset (f);
clrscr;
Writeln('Исходный массив записей:':30);
Writeln;
VVod (sp); Out(sp,sp1,kvo);
Writeln ('Результат:':30);
Writeln ('Спиок студентов для голосования:');
For k:= 1 to kvo do
With sp1[k] do Writeln(FIO,DR.Day:4,DR.Month:4,DR.Year:6);
Writeln ('Число студентов в списке=> ',kvo);
Readln;
End.