нужно исправить программу.не всё правильно выводится

Program workfile;
uses crt;
Type
book=record
author:string;
title:string;
year:word;
stack:byte;
end;
var
st:array[byte] of book;
F:file of book;
i,n,k1,k2,k3:byte;
x,y,z:char;
BEGIN
clrscr;
write (' введите количество книг n='); readln(n);
for i:=1 to n do
begin
write('автор:'); readln(st[i].author);
write('название:'); readln(st[i].title);
write('год издания:'); readln(st[i].year);
write('номер стеллажа:'); readln(st[i].stack);
end;
Assign(F,'book.txt');
Rewrite(F);
For i:=0 to n do
write(F, st[i]);
Close(F);
i:=0;
Assign(F,'book.txt');
Reset(F);
write('введите название книги:'); readln(x);
while not eof(F) do
begin
read(F,st[i]);
k1:=pos(x,st[i].title);
if (k1<>0)then
writeln('местонахождение книги:',st[i].stack);
end;
close(F);
i:=0;
Assign(F,'book.txt');
Reset(F);
write('список книг автора:'); readln(z);
while not eof(F) do
begin
read(F,st[i]);
k2:=pos(z,st[i].author);
if k2<>0 then
begin
writeln('название книги:',st[i].title);
writeln('год издания:',st[i].year);
writeln('местонахождение книги:',st[i].stack);
end;
end;
writeln('общее число книг n=',n);
Close(F);
END.