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

uses
  crt;
 
type
  knigi = record
    nazva: string[50];
    tirazh: integer;
    tsena: real;
  end;
 
var
  a: array[1..100] of knigi;
  i, n: integer;
 
begin
  repeat
    writeln('кол-во книг');
    readln(n);
  until (n > 1) and (n <= 100);
  for i := 1 to n do 
  begin
    with a[i] do 
    begin
      writeln('название');
      readln(nazva);
      writeln('тираж');
      readln(tirazh);
      writeln('стоимость');
      readln(tsena);
    end;
  end;
  for i := 1 to n do 
  begin
    writeln('название--', a[i].nazva, ' ', 'тираж---', a[i].tirazh, ' ', 'стоимость---', a[i].tsena);
  end;
  readln;
end.