нужна помощь ,не могу понять в чем ошибка

[Luntik]

вот программаЖ
uses crt;
type
sp=record
nom:integer;
fio:string[20];
spec:string[6];
group:string[3];
end;
var a:array[1..101] of integer;
rasp:array[1..101] of sp;
vr:sp;
i,j,n,code,l,vp:integer;
s,st,g:string;
f:text;
BEGIN
N:=0;
assign(f,'dano.txt');
reset(f);
l:=1;
while not eof(f) do begin
readln(f,s);
with rasp do begin

g:=Copy(s,1,3);
val(g,nom,code);
fio:=Copy(s,6,20);

g:=Copy(s,27,2);
val(g,vp,code);
spec:=Copy(s,6,20);


group:=Copy(s,38,3);
n:=n+1;
end;
l:=l+1;
end;
close(f);
writeln;

writeln('Начальный список:');
for i:=1 to n do
with rasp do begin
writeln('',nom,' ',fio,' ',spec,' ',group);
end;


writeln;
writeln('Факультет ФВТ');
for i:=1 to n do
with rasp do begin
if (spec='ФВТ') then
begin
write('',nom,' ',fio,' ',spec,' ',group);
writeln;
end;
end;

writeln;
writeln('Вывод специальности меньше 102030');
for i:=1 to n do
with rasp do begin
if s[36]>='102030' then
writeln('',nom,' ',fio,' ',spec,' ',group);
end;

for i:=1 to n-1 do
for j:=1 to n-i do
if rasp[j].group>rasp[j+1].group then begin
vr:=rasp[j];
rasp[j]:=rasp[j+1];
rasp[j+1]:=vr;
end;
writeln;
writeln('Сортировка по возрастанию');
for i:=1 to n do
with rasp do begin
writeln('',nom,' ',fio,' ',spec,' ',group);
end;

assign(f,'dano1.txt');
rewrite(f);
for i:=1 to n do
with rasp do begin
writeln;
write(f,nom);
write(f,fio);
write(f,spec);
write(f,group);
end;
close(f);
END.

[garmayev]

1. Что делает эта программа (Вчитываться в чужой код, который автор сам поленился прокомментировать я лично не собираюсь)?
2. Какая ошибка выпадает?
3. Какого эффекта вы собираетесь добиться?