Файловый ввод-вывод

[Оля_1991]

Вот задание:
Запись имеет вид: номер читательского билета, автор книги,название, дата заказа. вывести на экран содержимое файла. Поменять местами первую и последнюю запись в файле.
Я составила вот такую программу:
Program Zad8;
uses crt;

Type
wed=record
nomer:byte;
nazvanie: string;
avtor: string;
data:integer;
end;
var spisok: wed;
sp: file of wed;
procedure vvod;
var i,j: byte;
begin
rewrite (sp);
with spisok do
for i:=1 to 7 do begin
nomer:=i;
writeln ('vvedite nomer bileta - ',i);
readln (nomer);
writeln ('vvedite avtora knigi ',avtor);
readln (avtor);
writeln ('vvedie nazvanie ',nazvanie);
readln (nazvanie);
writeln ('vvedite datu zakaza ',data);

readln (data);
write (sp, spisok);
end;
close (sp);
end;

Procedure print;
var j:byte;
begin
reset (sp);
writeln (' spisok nomerov bileta: ');
while not eof (sp) do
with spisok do
begin
read (sp, spisok);
write (nomer, ' ',nazvanie);
write (' ',avtor);
write (' ', data);
writeln;
end;
readln;
close (sp);
end;

Procedure work;
var num: integer;
i:integer;
a:wed;
begin
reset (sp);

readln(j);
seek (sp,j-1);
read (sp,a);
readln(k);
seek (sp,k-1);
read(sp,spisok);
write (sp,a);
seek (sp,j-1);
write (sp,);
end;


Begin
clrscr;
assign (sp, 'Vedom.DAT');
vvod;
print;
work;
print;
readln;
end.

Она выводит данные, но не меняет местами первую и последнюю запись в файле. Подскажите, где ошибка?