Помогите пожалуйста с Pascal, весь вечер голову ломаю Т.Т⁠⁠

Program Lab8;
type
wed = record
num:integer;
avtor:string;
nazv:string;
data:string;
end;
var
spisok:wed;
sp:file of wed;
procedure input;
var i:integer;
spisok:array [1..7] of wed;
begin
rewrite(sp);
for i:=1 to 7 do
begin
write('Номер чит.билета  - ');
readln(spisok[i].num);
write('Автор  - ');
readln(spisok[i].avtor);
write('Название книги - ');
readln(spisok[i].nazv);
write('Дата  - ');
readln(spisok[i].data);
write(sp,spisok[i]);
end;
close(sp);
end;
procedure print;
var j:integer;
begin
reset(sp);
writeln('Список');
while not eof(sp) do
begin
read(sp, spisok);
write(spisok.num,' ',spisok.avtor,' ',spisok.nazv,' ',spisok.data);
writeln;
end;
readln;
close(sp);
end;
begin
assign(sp,'Spisok.DAT');
input; print;
work; print;
readln;
end.