Комбинированные типы данных в Паскале

[Максим8111]

Задача:
Описать массив записей и поместить в него сведения о нескольких книгах.Предусмотреть возможность выдачи наименования книги по фамилии автора.

вот исходный код:
program lab17;
type
books=record
fio,name,familia:string[15];
year:integer
end;
var
tbl:array[1..5] of books;
i,m:integer;
begin{lab17}
writeln('vvedite kolithectvo books');
read(m);
for i:=1 to m do
begin
writeln('vvedite fio',i);
with tbl[i] do
readln(fio);
end;
for i:=1 to m do
begin
writeln('vvedite name',i);
with tbl[i] do
readln(name);
end;
for i:=1 to m do
begin
writeln('vvedite year',i);
with tbl[i] do
readln(year);
end;
writeln('vvedite familiy');
readln(tbl[i].familia);
if tbl[i].fio=tbl[i].familia
then
begin
writeln(tbl[i].name);
writeln(tbl[i].year)
end
else
writeln('net sovpadenui')

end.{lab17}

но при вводе значений fio возникает проблема.Посмотрите пожалуйста.

[Veselyn]

Насколько я знаю то нужно так

program lab17;
type d1:string[15];
        d2:string[15];
          d3:string[15];
    books=record
fio:d1;
  name:d2;
      year:d3;
end;
var
a:array[1..5] of books;
   i, m, k:integer;
begin{lab17}
writeln('vvedite kolithectvo books');
 read(m);
for i:=1 to m do
begin
writeln('books ',i);
writeln('vvedite fio');
 readln(a[i].fio);
writeln('vvedite name');
 readln(a[i].name);
writeln('vvedite year');
 readln(a[i].year);
end;
writeln('vvedite familiu dla poiska');
readln(familia);
   k:=0;
for i:=1 to m do 
    if a[i].fio=familia then
begin
writeln(a[i].name);
writeln(a[i].year);
writeln(a[i].fio);
inc(k);
end;
if k=0 then
writeln ('vsego naydennux books =',i);
writeln('net sovpadeny');
readln;
end.{lab17}