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

procedure work;

var z1, z2:string;

begin

reset(sp);

seek(sp,0);

read(z1);

seek(sp,6);

read(z2);

seek(sp,0);

write(z2);

seek(sp,6);

write(z1);

write(sp,spisok);

close(sp);

end;

Файл типизированный