Описать тип Tovar

Const n=20;
      line='-----------------------------------------';
Type Tovar=Record
      name:string[15];
      kod:string[10];
      number:integer;
     End;
Var A:array[1..n] of Tovar;
    i,j:integer;
    t:Tovar;
Begin
    For i:=1 to n do
     With A[i] do
     Begin
       writeln('Информация о ',i,' записи');
       write('Название: ');
       readln(name);
       write('Код товара: ');
       readln(kod);
       write('Количество: ');
       readln(number);
     End;
    writeln(line);
    writeln('|    Название   |   Код    | Количество |');
    writeln(line);
    For i:=1 to n do
     With A[i] do
      writeln('|',name:15,'|',kod:10,'|',number:7,'|':6);
    writeln(line);
    For i:=n downto 2 do
     For j:=2 to i do
      if A[j].kod<A[j-1].kod then
      Begin
        t:=A[j];
        A[j]:=A[j-1];
        A[j-1]:=t;
      End;
    writeln('После сортировки');
    writeln(line);
    writeln('|    Название   |   Код    | Количество |');
    writeln(line);
    For i:=1 to n do
     With A[i] do
      writeln('|',name:15,'|',kod:10,'|',number:7,'|':6);
    writeln(line);
End.