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

Program zap_15;

Uses Crt;

Const
  n = 10;

Type
  opis = record
    k: integer;
    name, dat1: string[20];
  end;

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

BEGIN
  ClrScr;
  for i := 1 to n do
    with a[i] do
    begin
      Writeln('Введите инвентарный номер ');
      Readln(k);
      Writeln(' Введите наименование ');
      Readln(name);
      Writeln(' Введите дату учета');
      Readln(dat1);
    End;
  Writeln('Инвентаризационная опись');
  for i := 1 to n do
    with a[i] do
      Writeln(k, ' ', name, ' ', dat1);
  Readln;

end.