Составить программу, выводящую на экран список книг домашней библиотеки (автор, название книги, издательство, год издания, стоимость). Провести поиск по автору книги — Pascal(Паскаль)

Program zap_8;

Uses Crt;

Const
  n = 10;

Type
  kniga = record
    Avt, name, izd: string[20];
    God: integer;
    Stoim: real;
  end;

Var
  a: array [1 .. n] of kniga;
  i: byte;
  avtor: string;

BEGIN
  ClrScr;
  for i := 1 to n do
    with a[i] do
    begin
      Writeln('Введите автора ', i);
      Readln(Avt);
      Writeln(' Название книги');
      Readln(name);
      Writeln('Издательство');
      Readln(izd);
      Writeln('Год издания');
      Readln(God);
      Writeln('Стоимость');
      Readln(Stoim);
    end;
  Writeln('введите автора');
  Readln(avtor);
  for i := 1 to n do
    with a[i] do
      if Avt = avtor then
        Writeln(Avt, ’ ‘, name, ’ ‘, izd, ’ ‘, God, ‘ ‘, Stoim:4:2);
  Readln;

end.