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

Program zap_10;

Uses Crt;

Const
  n = 10;

Type
  izd = record
    name: string[20];
    tir: integer;
    stoim: real;
  end;

Var
  a: array [1 .. n] of izd;
  i: byte;

BEGIN
  ClrScr;
  for i := 1 to n do
    with a[i] do
    begin
      Writeln('Введите наименование издания ', i);
      Readln(name);
      Writeln(' Тираж');
      Readln(tir);
      Writeln('Стоимость за год');
      Readln(stoim);
    End;
  Writeln('Периодические издания');
  for i := 1 to n do
    with a[i] do
      Writeln(name, ’ ‘, tir, ’ ‘, stoim:4:2);
  Readln;

end.