Используя запись распечатать информацию о книгах

program zapisi;
type list=record;
ln:string; {nazvanie knigi}
fa:string; {фамилия автора}
ks:longint;{количество страниц}
kolknig: array[1..3] of byte ;
end;
var
dateb: array [2007..2010] of list;
i:longint;
begin
for i:=1 to 3 do with dateb[i] do begin
writeln('vvedute ln');
readln(ln);
writeln('vvedute fa');
readln(fa);
writeln('vvedute ks');
readln(ks);
end;
for i:=1 to 3 do if
(dateb[1]=2008) (dateb[2]=2008) (dateb[3]=2008)
then writeln(ln,' ',fa,' ',ks);
end.

program zapisi;
uses crt;
type list=record
          ln:string; {nazvanie knigi}
          fa:string;
          gd:word;
          ks:longint;
          end;
var dateb: array [1..50] of list;
    n,i,k:byte;
begin
clrscr;
write('Количество книг n=');
readln(n);
writeln('Введите данные о книгах:');
for i:=1 to n do
with dateb[i] do
 begin
  write('Название книги: ');readln(ln);
  write('Фамилия автора: ');readln(fa);
  write('Год издания:');readln(gd);
  write('Количество страниц: ');readln(ks);
 end;
writeln('Книги, изданные в 2000 году:');
k:=0;
for i:=1 to n do
if dateb[i].gd=2008 then
 begin
  k:=1;
  writeln(dateb[i].ln,' ',dateb[i].fa,' ',dateb[i].ks);
 end;
if k=0 then write('Таких книг нет!');
readln
end.