Работа со списками Опции

[- Sergey -]

Вообщем есть такое задание:
"Ввести информацию о количестве продукции на складе в массив записей и вывести ее в виде таблицы."

Вот что у меня получилось:

Код

uses crt;

type
production = record
name: string;
kol: integer;
end;
var
a: array [1..50] of production;
i,n: integer;
begin
clrscr;
writeln('Введите количество продукции: ');
readln(n);
for i:=1 to n do
 begin
  write('Наименование: ');
  readln(a[i].name);
  write('Количество: ');
  readln(a[i].kol);
 end;
writeln;
writeln;
for i:=1 to n do
 begin
  writeln('  ',a[i].name:12,a[i].kol:8);
 end;
readln;
end.

Подскажите где здесь недочёты. Как можно сделать красивее и т.д.