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

[Максим8111]

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

program lab17;
 type
    books=record
            fio,name:string[15];
            year:integer
          end;
 var
  tbl:array[1..5] of books;
  i,m:integer;
  begin{lab17}
    writeln('vvedite 5 books');
    read(m);
    writeln('vvedite komponenti zapisey');
    for i:=1 to m do
       with tbl[i] do
          readln(fio,name,year);
        end.;
    for i:=1 to m do
       with tbl[i] do
          writeln(fio,name,year);
  end.{lab17}

[Stilet]

редусмотреть возможность выдачи наименования книги по фамилии автора

Ну тут немного дописать:

 
Familia:string;
....
write('Введите фамилию');readln(Familia);
for i:=1 to m do
       with tbl[i] do
        if fio=Familia then writeln(name,year);

[Максим8111]

Спасибо!но при вводе компонентов записей не получается вводить буквы.как это исправить?

[Stilet]

не получается вводить буквы

Как это не получается?

[rusell]

Про буквы, попробуй так!

for i:=1 to m do
  with tbl[i] do
    readln(fio);
    readln(name);
    readln(year);
  end;

[Максим8111]

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

посмотрите пожалуйста что не правильно.